Problema al cargar grilla con base de datos

[SalomonSab]

Prueba asi:

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.Fields("id") & vbTab & rs.Fields("nombre") & vbTab & rs.Fields("email") & vbTab & rs.Fields("contrasenia") & vbTab & rs.Fields("pais")
rs.MoveNext
Loop
rs.Close

End Sub

Ya nos diras que paso