Cita:
Iniciado por GeoAvila 
en evento load pones esto
Código:
servidor = "localhost"
usuario = "root"
password = "123456"
basedatos = "proyecto"
Set mybase = CreateObject("adodb.connection")
stringConecta = "DRIVER={MySQL ODBC 3.51 Driver};Server=" & servidor & ";database=" & basedatos & ";PWD=" & password & ";UID=" & usuario & ";Option=3"
mybase.open stringConecta
Set rs = mybase.execute("select *from usuario")
La variable RS debe estar declara como private dentro de las declaraciones del form osea en la parte superior fuera de todo otro evento.
y en tu botón solo colocas..
Código:
rs.MoveNext
txt1 = rs.Fields(1)
nos vemos.
hola amigo gracias por contestar sabes q hice lo que me indicastes y me da un error al ejecutar en la siguiente linea:
mybase.open stringConecta
estro fue lo q hice:
Private rs
Private Sub Command1_Click()
rs.Movenext
txt1 = rs.fields(1)
Txt2 = rs.fields(2)
Txt3 = rs.fields(3)
End Sub
Private Sub form_load()
servidor = "localhost"
usuario = "root"
password = "123456"
basedatos = "proyecto"
Set mybase = CreateObject("adodb.connection")
stringConecta = "DRIVER={MySQL ODBC 3.51 Driver};Server=" & servidor & ";database=" & basedatos & ";PWD=" & password & ";UID=" & usuario & ";Option=3"
mybase.open stringConecta
Set rs = mybase.execute("select *from usuario")
End Sub
tendras alguna ide? gracias de una por ayudarme