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.