llenar combobox con tabla mysql vb6

[elmatador2]

hola gente, perdonlas molestias, recurro a ustedes con este tema por que no encontre en el buscador ninguna informacion
en un module tengo esta conexion:

Código (vb) [Seleccionar] Expandir

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.

[elmatador2]

ya encontre un ejemplo en otra web. abajo esta el autor, o quien escribio. muchas gracias igualmente

Código (vb) [Seleccionar] Expandir

Private Sub Combo1_GotFocus()

Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sql$

Set cnn = New ADODB.Connection
cnn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=localhost;" _
& "DATABASE=datos;" _
& "UID=root;PWD=root;PORT=3306;OPTION=131072 "

cnn.Open

Set rst = New ADODB.Recordset

sql$ = "select empresa from empresas"  'selecciona tabla y columna

With rst
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open sql$, cnn, , , adCmdText
End With

Combo1.Clear
rst.MoveFirst

Do
Combo1.AddItem rst.Fields!empresa.Value 'muestra en el combo1 lista de columna empresa
rst.MoveNext
Loop Until rst.EOF


Set rst = Nothing
Set cnn = Nothing


End Sub


abraham