Conexion y consulta MySQL con VB 6.0

[varlock_]

oie viejo a mi me sale un error con este codigo

open_ado
Dim rsMySql As ADODB.Recordset
Dim strMySql As String

Set rsMySql = New ADODB.Recordset
strMySql = "SELECT * FROM usuarios"

rsMySql.Open strMySql, conexion --------------------aqui me dice: argumentos incorrectos o fuera de intervalo

If Not rsPC.EOF Then rsPC.MoveFirst
While Not rsMySql.EOF
' aqui accedes al recordset y sacas los campos q te interesen
txt_nick.Text = rsMySql!nick

rsMySql.MoveNext
Wend
rsMySql.Close
closeado

me pudieran ayudar plisss