error en consulta usando dao

[edel_junior]

hola
realmente no hay error pero no muestra los datos en los text correspondiente a cada campo de la tabla cuenta de la bd este es el codigo:
[B]
Dim tRs As Recordset

miServer = "localhost" ' tambien puede ser una IP o un nombre de equipo
miUser = "root"
miPass = "" 'MySQL es sencible con las mayúsculas y minúsculas
miDB = "banco"
' si ocurre un error con la conexion capturamos el error
' procesar los datos a mostrar
Set miCnn = New Adodb.Connection
miCnn.CursorLocation = adUseClient
miCnn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=" & miServer & ";" _
& "DATABASE=" & miDB & ";" _
& "UID=" & miUser & ";" _
& "PWD=" & miPass & ";" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
miCnn.CursorLocation = adUseClient
miCnn.Open
Set tRs = New Recordset
codc = InputBox("digite codigo cuenta a consultar: ", "Consultar saldo")
miSQL = "select * from cuenta where codcuenta='" & codc & "' "
tRs.Open miSQL, miCnn, adOpenForwardOnly, adLockReadOnly 'adLockOptimistic
With tRs
If (.EOF = True) And (.BOF = True) Then
' Si no hay datos...
MsgBox "no hay datos coincidentes", vbInformation, "Sistema"

Else

.MoveNext

End If
End With

no se`porque no muestra nada pero cuando le mando un dato que no esta almacenado si me dice que noesta osea el msgbox que corresponde a esta condicion

necesito saber que me falta

salu2