listar datos

[anrey]

hola amigos voy a ir al grano de una vez quiero listar unos datos en un formulario mediante un boton. O sea cada vez q haga click en el boton proximo por ejemplo quiero que me salga el dato siguiente lo estoy haciendo de esta forma


Private Sub Command1_Click()
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")
rs.MoveFirst
txt1 = rs.Fields(1)
End Sub

este me arroja solo el primer dato como puedo hacer para q cada vez q se accione el boton me salga el siguiente dato si alguien sabes por favor ayudanme estoy aprendiendo