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