Private Sub ado(a As String)
Adodc1.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=it; User=root;Password=506;Option=3;"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from " + a
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset("usluga_id").Value = Combo1.Text
Adodc1.Recordset("date").Value = Text2.Text
Adodc1.Recordset("amount").Value = Val(Text1.Text)
Adodc1.Recordset.Update
End Sub

Private Sub Form_Load()
ado ("sales")
Text2.Text = Str(Date)
Conn.Open "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=it; User=root;Password=506;Option=3;"
Set r = Conn.Execute("select * from uslugi")
k =  0 
r.MoveFirst
    Do Until r.EOF
        a = r.Fields("id").Value
        b = r.Fields("name").Value
        Combo1.AddItem a, k
        List1.AddItem (Str(a) + vbTab + b)
        'MsgBox a
        r.MoveNext
        k = k +  1 
    Loop

r.Close
Combo1.Text = "УСЛУГИ"
Combo2.Text = "Клиенты"
End Sub

a = r.Fields("id").Value
b = r.Fields("name").Value
Combo1.AddItem b
Combo1.ItemData(Combo1.NewIndex) = a

Adodc1.Recordset.AddNew
Adodc1.Recordset("usluga_id").Value = Combo1.ItemData(Combo1.ListIndex)