Hola y gracias por responderme

Hola como estas = mira ayer puder solucionar el problema que tenia con ADO
lo hice de la siguiente manera y me funciono perfectamente
Dim connPresupuestos as ADODB.Connection
Dim rsClientes as ADODB.Recordset
Private Sub Open_connPresupuestos ()
Dim strConnect as String
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Sanitaria\Presupuestos.mdb"
Set connPresupuestos = New ADODB.Connection
connPresupuestos.CursorLocation = adUseClient
connPresupuestos.Open strConnect
Set rsClientes = New ADODB.Recordset
rsClientes.CursorType = adUseClient
rsClientes.LockType = adLockPessimistic
rsClientes.Source = "SELECT * FROM [Clientes]"
rsClientes.ActiveConnection = connPresupuestos
rsClientes.Open
End Sub
Private Sub Close_connPresupuestos ()
connPresupuestos.Close
Set connPresupuestos = Nothing
End Sub
Ahora tengo otra preguntita que creo que es más sencilla, sabes que al formulario en los TextBox quiero que cuando la persona le de Enter salte al siguiente TextBox lo que hago es lo siguiente
Private Sub txtCodigo_Keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
End If
txtNombre.SetFocus
End Sub
¿Pero cada vez que presiono cualquier tecla para empezar a escribir ya me salta al otro Textbox que puede ser?
¿Yo creía que el 13 era el Enter no?