en un module tengo esta conexion:
Código
Public cn As ADODB.Connection Public rs As ADODB.Recordset Sub Main() Set cn = New ADODB.Connection cn.ConnectionString = "Driver={Mysql ODBC 3.51 Driver}; Server=localhost;port=3306; database=datos; user=root; password=root; option=3;" cn.Open If cn.State = adStateOpen Then menu.Show Else MsgBox "no coneta" End End If End Sub
y necesito mostrar en un form -> combo1 los datos de la columna empresa "de la tabla empresas"
desde ya muchas gracias. y buena semana a todos.