Errore che non capisco

[Freedom]

Aiuto!!!!

Non sto capendo perchè non funge questo codice:

Dim ObjRS, StrSQL
Set ObjRS = Server.CreateObject("ADODB.Recordset") 
StrSQL ="SELECT * FROM Users WHERE Con = 1"
ObjRS.Open StrSQL, ObjConn, adOpenStatic, adLockReadOnly, adCmdText
			
If Not ObjRS.EOF Then 'se sono presenti utenti
   Do While Not ObjRS3.EOF

	Dim Nomi
	Nomi = Nomi&","&ObjRS("Nome")&"," 

ObjRS.MoveNext
Loop

L'errore è:
Microsoft VBScript runtime error '800a000d'

Type mismatch
La riga è quella in rosso.

Dove sbaglio??