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