Código:
E incluso me sigue mandando ese mensaje aun cuando desde las referencias del proyecto ya he seleccionado la libreria: Microsoft Remote Data Object 2.0Private Sub cmdConectar_Click(Index As Integer) Dim rdoEn As rdoEnvironment Dim db As rdoConnection Set rdoEn = rdoEnvironments(0) With db .Connect = "UID=root; PWD=qtx; Database= seminario ;" _ & "Server=localhost;Driver={MySQL ODBC 3.51 Driver}" _ & "DSN='';" .LoginTimeout = 5 .EstablishConnection rdDriverNoPrompt, True rdoEn.rdoConnections.Add (db) End With End Sub
La base de datos esta en mi lap (localhost), al igual que VB6 SP6
Alguien sabe porque me sigue mandando este mensaje ??????
