Visual Basic - no me encuentra datos en la B.D

hola a tod@s:

alguien sabe porque no me encuentra ningun dato de la b.d?, aunque este buscando un codigo que exista en la base de datos me dice que no existe.Alguien me puede ayudar? muchisimas gracias a todos.

Private Sub Command1_Click()
Dim primerDigito As Integer
Dim tField As ADODB.Field

' Por si ya estaba abierta...
Set cnn = Nothing
Set rs = Nothing
'
' Crear los objetos
Set cnn = New ADODB.Connection 'declaración de la conexion
Set rs = New ADODB.Recordset 'creación del recordset, aun no esta abierto, se abre con recordeset.open
' para saber que b.d abrir tenemos el ConnectionString
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sPath & ";" & _
"Mode=ReadWrite|Share Deny None;" & _
"Persist Security Info=False;Jet OLEDB"

cnn.Open sPath 'abrir la bd
rs.Open "SElect distinct Localizacion from Localizacion where CodLocalizacion like '" & primerDigito & "*' ", cnn, adOpenDynamic, adLockOptimistic

With rs
If (.BOF And .EOF) Then 'si no hay datos
MsgBox "no existe ese codigo"
Else
'Nos quedamos con el cd en el cual se encuentra la foto
.MoveFirst

cd = rs("Localizacion")
.MoveNext

End If
rs.Close
cnn.Close
End With
End Sub