el error hace referencia a "Dim mc As ADOB.Connection"
Código:
Dim mc As ADOB.Connection
Dim rs As ADOD.Recordset
Private Sub Command1_Click()
Dim sql As String
Set rs = New ADOB.Recorset
sql = "select username,password from users"
rs.Open sql, mc, adOpenDynamic, adLockBatchOptimistic
Text1.Text = rs!username
Text2.Text = rs!password
End Sub
Private Sub Form_Load()
Set mc = New ADOB.Connection
mc.ConnectionString = "Driver={MySQL ODBC 5.2 ANSI Driver};Server=localhost;Database=prueba; User=root;Password=pass;Option=3;"
mc.Open
End Sub


