FlexGridPlus4.Cells( 1 ,  1 ).Top

Private Sub FlexGridPlus4_Click()
Combo2.Left = FlexGridPlus4.Cells(FlexGridPlus4.RowSel,  1 ).Left +  100 
Combo2.Top = FlexGridPlus4.Cells(FlexGridPlus4.RowSel,  1 ).Top +  800 
Combo2.Width = FlexGridPlus4.Cells(FlexGridPlus4.RowSel,  1 ).Width
Combo2.Text = FlexGridPlus4.TextMatrix(FlexGridPlus4.RowSel,  1 )
Combo2.Visible = True
End Sub

strsql = "Select d.name, u.name,c.name, r.price,r.amount,r.date , r.time from registr as r " + _
" LEFT JOIN documents as d and uslugi as u and clients as с  on r.doc_id= d.id and r.usluga_id=u.id and r.client_id = c.id" + _
" group by d.name"
query strsql

 LEFT JOIN documents as d and uslugi as u and clients as с  on r.doc_id= d.id and r.usluga_id=u.id and r.client_id = c.id

Select d.name, u.name,c.name, r.price,r.amount,r.date , r.time from registr as r 
LEFT JOIN documents as d on r.doc_id= d.id
LEFT Join uslugi as u on r.usluga_id=u.id
LEFT Join clients as с on r.client_id = c.id

Select d.name, r.date , r.time from registr as r 
right JOIN documents as d on r.doc_id= d.id group by doc_id

SELECT weather.city, weather.temp_lo, weather.temp_hi,
       weather.prcp, weather.date, cities.location
    FROM weather, cities
    WHERE cities.name = weather.city;

Запросы объединения такого вида, могут быть также записаны в альтернативной форме:

SELECT *
    FROM weather INNER JOIN cities ON (weather.city = cities.name);

Public Sub query(strquery As String)
strconn = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=it; User=root;Password=506;Option=3;"
Set Conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Conn.Open strconn
rs.Open strquery, Conn, adCmdText
End Sub

Private Sub Command9_Click()
strsql = "Select d.name, u.name,c.name, r.price,r.amount,r.date , r.time from registr as r " + _
" LEFT JOIN documents as d on r.doc_id= d.id " + _
"LEFT Join uslugi as u on r.usluga_id=u.id " + _
"LEFT Join clients as с on r.client_id = c.id"
query strsql
End Sub

LEFT Join clients as с on r.client_id = c.id