ttt0 = "select * from GBPROV order by "            ' ,RBPS Where " + _
"GBprov.Gkag=RBPS.Gkag and GBprov.Kkag=RBPS.Kkag Order by "
'Data1.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & GBmenu.Pth0 & "\" & GBmenu.Xnamestat & ";"
    'Data1.DatabaseName = GBmenu.Pth0 + "\" + "GBprov.dbf"  ' ðàáîòàåò íî íàäî êîïàòüñÿ
    Data1.DatabaseName = GBmenu.Pth0 + "\" + GBmenu.Xnamestat
    Data1.RecordSource = ttt0 & "DPD"
    Data1.Refresh

Private Sub TDBGrid1_HeadClick(ByVal ColIndex As Integer)
Dim ttt As String
GBmenu.Xw1 = MsgBox("head-click. " + Str(ColIndex),  52 )
Select Case ColIndex
       Case  0 
            ttt = "DPD"
       Case  1 
            ttt = "D_N"
       Case  2 
            ttt = "K_N"
       Case  4 
            ttt = "BD"
       Case  5 
            ttt = "SUM"
       'Case 7
        '    ttt = "KVD"
       'Case 13
            ttt = "OKL"
End Select
ttt0 = "select * from GBprov ORDER by " + ttt
'Data1.DatabaseName = GBmenu.Pth0 + "\"
Data1.RecordSource = ttt0 & "tabn"
Data1.Refresh
End Sub

Private Sub Command1_Click()
Dim i As Integer
Dim ttt As String
i = frmGBprov2.Combo1.ListIndex
If i <  0  Then
   i =  0   ' åñëè íå âûáèðàëè ïî Combo1, òî çíà÷åíèå çàãëàâíîé ñòðîêè.
End If
Select Case i
   Case  0 
        ttt = ttt0 & "DPD"
   Case  1 
        ttt = ttt0 & "D_N"
   Case  2 
        ttt = ttt0 & "K_N"
   Case  3 
        ttt = ttt0 & "SHF"
   Case  4 
        ttt = ttt0 & "SUM"
   Case  5 
        ttt = ttt0 & "GBprov.GKAG,GBprov.KKAG"
End Select
Data1.RecordSource = ttt
Data1.Refresh
End Sub