Problema al cargar grilla con base de datos

[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