Dim sql As String
sql = "select * from films ORDER BY f_id"

With ADO
.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Port=3306;Database=mydb;User=root; Password=123;Option=3;"
.RecordSource = sql
.Refresh

Set DataGrid1.DataSource = ADO
    DataGrid1.Columns( 0 ).Width =  0 
End With

Public cn As ADODB.connection
Public rs As ADODB.Recordset

Private Sub Command1_Click()
Dim sql As String
Set rs = New ADODB.Recordset
sql = "select g_name from genre"

rs.Open sql, cn, adOpenStatic
Combobox.Clear
Do While Not rs.EOF
     Combobox.AddItem rs("g_name").Value
     rs.MoveNext
Loop
rs.Close
End Sub