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)

Private gridname As FlexGridPlus
Public Sub flexname(flexnum as integer)
Set gridname = ME.Controls.Item("FlexGridPlus" + Str(flexnum)) 

Public Sub flexname(gridname As FlexGridPlus)
MsgBox gridname.Name
gridname.Cols = rs.Fields.Count
gridname.Rows =  1 
gridname.ColWidth( 1 ) =  2000 
gridname.ColWidth( 2 ) =  1000 
For i =  0  To rs.Fields.Count -  1 
    gridname.TextMatrix( 0 , i) = rs.Fields(i).Name
Next i
Do While Not rs.EOF
    gridname.Rows = gridname.Rows +  1 
    For i =  0  To rs.Fields.Count -  1 
    If Not rs.Fields(i) = "" Then
        gridname.TextMatrix(gridname.Rows -  1 , i) = rs.Fields(i)
    End If
    Next i
rs.MoveNext
Loop
Set Conn = Nothing
Set rs = Nothing
End Sub

Private Sub Command1_Click()
strsql = "Select d.name, r.date , r.time from registr as r " + _
" right JOIN documents as d on r.nom_doc= d.id"
query (strsql)
flexname ("FlexGridPlus1")
' либо так 
flexname (Me.FlexGridPlus1)
End Sub

flexname FlexGridPlus2

strsql = "Select * from clients"
query (strsql)
k =  0 
rs.MoveFirst
Do Until rs.EOF
    a = rs.Fields("id").Value
    b = rs.Fields("name").Value
    Combo1.AddItem b, k
    Combo1.ItemData(Combo1.NewIndex) = a
    rs.MoveNext
    k = k +  1 
Loop
strsql = "Select * from uslugi"
query (strsql)
k =  0 
rs.MoveFirst
Do Until rs.EOF
    a = rs.Fields("id").Value
    b = rs.Fields("name").Value
    Combo2.AddItem b, k
    Combo2.ItemData(Combo2.NewIndex) = a
    rs.MoveNext
    k = k +  1 
Loop

query (strsql)

query (strsql)

query strsql

Private Sub FlexGridPlus4_Click()
Combo2.Left = FlexGridPlus4.Left + FlexGridPlus4.ColWidth( 0 )
Combo2.Top = FlexGridPlus4.Top + (FlexGridPlus4.RowHeight( 0 ) * (FlexGridPlus4.RowSel))
Combo2.Width = FlexGridPlus4.ColWidth( 1 )
Combo2.Text = FlexGridPlus4.TextMatrix(FlexGridPlus4.RowSel,  1 )
Combo2.Visible = True
End Sub

FlexGridPlus4.Cells( 1 ,  1 ).Top