Option Explicit
Dim x As Integer
Dim NumVisRow As Integer
Dim PredRowPos As Integer
Dim HeightRows As Integer

Private Sub Command1_Click()
MSFlexGrid1.AddItem ""
x = Combo1.Count

Load Check1(x)
Check1(x).Left = MSFlexGrid1.Left +  100 
Check1(x).Top = MSFlexGrid1.Top + (MSFlexGrid1.RowHeight( 0 ) * x) +  100 
Check1(x).ZOrder

Load Combo1(x)
Combo1(x).Left = MSFlexGrid1.Left + MSFlexGrid1.ColWidth( 0 ) + MSFlexGrid1.ColWidth( 1 ) + MSFlexGrid1.ColWidth( 2 ) +  50 
Combo1(x).Top = MSFlexGrid1.Top + (MSFlexGrid1.RowHeight( 0 ) * x) +  50 
Combo1(x).Width = MSFlexGrid1.ColWidth( 3 )
Combo1(x).ZOrder
Combo1(x).AddItem "Пар" & x

    If Check1(x).Top < MSFlexGrid1.Top + MSFlexGrid1.Height Then
    Check1(x).Visible = True
    End If

    If Combo1(x).Top < MSFlexGrid1.Top + MSFlexGrid1.Height Then
    Combo1(x).Visible = True
    End If
End Sub

Private Sub Form_Load()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
MSFlexGrid1.Cols =  5 
MSFlexGrid1.Rows =  1 
Combo1( 0 ).Visible = False
Check1( 0 ).Visible = False
Check1( 0 ).Caption = ""
Check1( 0 ).Width =  200 
Check1( 0 ).Height =  200 
'Check1(0).Appearance = 0
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
NumVisRow =  5  ' высота в строках
HeightRows =  330 
MSFlexGrid1.RowHeightMin = HeightRows
MSFlexGrid1.Height = HeightRows * NumVisRow +  50 
MSFlexGrid1.ColWidth( 0 ) =  330 
MSFlexGrid1.ColWidth( 3 ) =  2000 
End Sub

Private Sub MSFlexGrid1_Scroll()
For x =  1  To MSFlexGrid1.Rows -  1 
Combo1(x).Visible = False
Check1(x).Visible = False

   Combo1(x).Top = MSFlexGrid1.Top + MSFlexGrid1.RowPos(x) +  50 
   Check1(x).Top = MSFlexGrid1.Top + MSFlexGrid1.RowPos(x) +  100 

If Combo1(x).Top < MSFlexGrid1.Top + HeightRows Or Combo1(x).Top > MSFlexGrid1.Top + MSFlexGrid1.Height -  50  Then
Combo1(x).Visible = False
Else
Combo1(x).Visible = True
End If

If Check1(x).Top < MSFlexGrid1.Top + HeightRows Or Check1(x).Top > MSFlexGrid1.Top + MSFlexGrid1.Height Then
Check1(x).Visible = False
Else
Check1(x).Visible = True
End If
Next x
End Sub

Private Sub Combo1_Change(Index As Integer)
MSFlexGrid1.Col =  3 
MSFlexGrid1.Row = Index
MSFlexGrid1.Text = Combo1(Index).Text
End Sub

Private Sub Combo1_Click(Index As Integer)
MSFlexGrid1.Col =  3 
MSFlexGrid1.Row = Index
MSFlexGrid1.Text = Combo1(Index).Text
End Sub

Private Sub Check1_Click(Index As Integer)
MSFlexGrid1.Col =  0 
MSFlexGrid1.Row = Index
MSFlexGrid1.ForeColorFixed = MSFlexGrid1.BackColorFixed

    If Check1(Index).Value = True Then
    MSFlexGrid1.Text =  1 
    Else
    MSFlexGrid1.Text =  0 
    End If
End Sub

CommonDialog1.ShowOpen
'MsgBox CommonDialog1.FileTitle
strCnxn = "DRIVER={Microsoft dBase Driver (*.dbf)};DBQ=" + App.Path + ";DefaultDir =" + App.Path + ""
Set Cnxn = New ADODB.Connection
Cnxn.Open strCnxn
Set rst = New ADODB.Recordset
strSQL = "SELECT * FROM " + CommonDialog1.FileTitle + ""
rst.Open strSQL, Cnxn, adCmdText
'MSFlexGrid1.AddItem ""
MSFlexGrid1.Cols = rst.Fields.Count
MSFlexGrid1.Rows =  1 
x = MSFlexGrid1.Rows
For i =  0  To rst.Fields.Count -  1 
    ' занести название имeн полей таблицы базы данных в
    ' первую строку MSFlexGrid1
    MSFlexGrid1.TextMatrix( 0 , i) = rst.Fields(i).Name
Next i
Do While Not rst.EOF
    ' увеличить количество строк в MSFlexGrid на единицу
    MSFlexGrid1.Rows = MSFlexGrid1.Rows +  1 
    ' цикл переноса данных из Recordset в MSFlexGrid1
        For i =  0  To rst.Fields.Count -  1 
            ' перенос данных данной строки (по полям). Если данные в
            ' ячейке Recordset имеются, то перенести их в
            ' таблицу MSFlexGrid1
            If Not rst.Fields(i) = "" Then
            MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows -  1 , i) = rst.Fields(i)
            End If
            ' конец цикла переноса данных
            ' в таблицу MSFlexGrid1 для одной строки
        Next i
    Load Check1(x)
    Check1(x).Left = MSFlexGrid1.Left +  100 
    Check1(x).Top = MSFlexGrid1.Top + (MSFlexGrid1.RowHeight( 0 )) +  100 
    Check1(x).ZOrder
    Check1(x).Visible = True
    Load Combo1(x)
    Combo1(x).Left = MSFlexGrid1.Left + MSFlexGrid1.ColWidth( 0 ) + MSFlexGrid1.ColWidth( 1 ) + MSFlexGrid1.ColWidth( 2 ) +  50 
    Combo1(x).Top = MSFlexGrid1.Top + (MSFlexGrid1.RowHeight( 0 ) * x) +  50 
    Combo1(x).Width = MSFlexGrid1.ColWidth( 3 )
    Combo1(x).ZOrder
    Combo1(x).AddItem "Пар" & x
    Combo1(x).Visible = True
    x = MSFlexGrid1.Rows
    ' использовать метод MoveNext - переход к
    ' следующей строке
    rst.MoveNext
Loop
If rst.BOF = True And rst.EOF = True Then
Else
End If
rst.Close
Cnxn.Close
Set Cnxn = Nothing
Set rst = Nothing