Problema al cargar grilla con base de datos

[Avellaneda]

Iniciado por manumaf

Hola, estoy usando el siguiente codigo en el evento load de mi formulario para cargar los datas de mi base de datos en mi grilla

Mi codigo es el siguiente:

Código:

Private Sub Form_Load()
Dim rs As New ADODB.Recordset
Dim consulta As String


        fgUsuarios.Clear
        fgUsuarios.Rows = 1
        fgUsuarios.Cols = 5
        fgUsuarios.TextMatrix(0, 0) = "Id"
        fgUsuarios.ColWidth(0) = 0
        fgUsuarios.TextMatrix(0, 1) = "Nombre"
        fgUsuarios.ColWidth(1) = (1000)
        fgUsuarios.TextMatrix(0, 2) = "Email"
        fgUsuarios.ColWidth(2) = 1000
        fgUsuarios.TextMatrix(0, 3) = "Contraseña"
        fgUsuarios.ColWidth(3) = 1000
        fgUsuarios.TextMatrix(0, 4) = "Pais"
        fgUsuarios.ColWidth(4) = 1000


consulta = "select id, nombre, email, contrasenia, pais from Usuarios order by nombres"
rs.Open consulta, conexion, adOpenDynamic, adLockReadOnly, adCmdText
Do While rs.EOF = False
fgUsuarios.AddItem = rs("id") & vbTab & rs("nombre") & vbTab & rs("email") & vbTab & rs("contrasenia") & vbTab & rs("pais")
rs.MoveNext
Loop
rs.Close


La conexion esta bien el error que me salta dice "Error de compilacion el argumento no es opcional"


Que esl o que hago mal?
End Sub

¿En qué línea salta el error?
Prueba eliminando 'adCmdText' en la apertura del recordset, ya que esta constante es de un objeto Command y no de un recordset.