Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim I As Integer
Dim sql As String
Set rs = New ADODB.Recordset
               Frm_Registr.Show
    sql = "select * from rezept_rus"
With rs
 oткрыть таблицу:
.Open sql, Frm_connect.conn, adOpenKeyset, adLockOptimistic
End With

If rs.BOF = True Or rs.EOF = True Then
Else
    For I =  0  To rs.Fields.Count -  1 
        Frm_Registr.MSHFlexGrid1.TextMatrix( 0 , I) = rs.Fields(I)
    Next I
End If
end Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim I As Integer
Dim sql1 As String
Set rs = New ADODB.Recordset
sql = "select * from rezept"
With rs
                    'oткрыть таблицу:
                    .Open sql, Frm_connect.conn, adOpenKeyset, adLockOptimistic
                End With
Dim a
                    Do Until rs.EOF
                        a =  1 
                        I =  0 
                            For I =  0  To  1 
                                Select Case rs.Fields(I).Name
                                    Case Frm_Registr.MSHFlexGrid1.TextMatrix( 0 ,  0 )
                                        Frm_Registr.MSHFlexGrid1.TextMatrix(Frm_Registr.MSHFlexGrid1.Rows -  1 ,  0 ) = rs.Fields(I)
                                    Case Frm_Registr.MSHFlexGrid1.TextMatrix( 0 ,  1 )
                                        Frm_Registr.MSHFlexGrid1.TextMatrix(Frm_Registr.MSHFlexGrid1.Rows -  1 ,  1 ) = rs.Fields(I)
                                End Select
                            Next I
                        rs.MoveNext
                        Frm_Registr.MSHFlexGrid1.Rows = Frm_Registr.MSHFlexGrid1.Rows +  1 
                    Loop
 rs.Close: Set rs = Nothing
end sub