Private Sub Command1_Click()
Beep
End
End Sub

Private Sub mnuCloseItem_Click()
Beep
End
End Sub

Private Sub mnuGosItem_Click()
Form3.Show
End Sub

Private Sub mnuPerepodItem_Click()
Form4.Show
End Sub

Private Sub mnuRypItem_Click()
Form2.Show
End Sub


Form2

Option Explicit


Private Sub Command1_Click()
MSFlexGrid1.AddItem ""
End Sub

Private Sub Command2_Click()
MSFlexGrid1.RemoveItem MSFlexGrid1.Row
End Sub

Private Sub Command3_Click()
Dim strFileName As String
Dim strFileContent As String
Dim nFreeFile As Integer
nFreeFile = FreeFile
CommonDialog1.ShowSave
strFileName = CommonDialog1.FileName
If strFileName <> "" Then
Open strFileName For Output As nFreeFile
strFileContent = MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel)
Print #nFreeFile, strFileContent
Close
End If
End Sub

Private Sub Command4_Click()
Beep
Form1.Show
Form2.Hide
End Sub

Private Sub MSFlexGrid1_GotFocus()
MSFlexGrid1.ColWidth( 0 ) =  400 
MSFlexGrid1.ColWidth( 1 ) =  1000 
MSFlexGrid1.ColWidth( 2 ) =  4000 
MSFlexGrid1.ColWidth( 3 ) =  1000 
End Sub

Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDelete Then
    MSFlexGrid1.Text = Empty
End If
End Sub

Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
If KeyAscii =  8  Then
        If Len(Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel))) >  0  Then
            MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel) = Mid(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel),  1 , Len(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel)) -  1 )
            Exit Sub
        Else
        Exit Sub
        End If
    ElseIf KeyAscii =  13  Then
        If MSFlexGrid1.Col <=  2  Then
            SendKeys "{right}"
            Exit Sub
        ElseIf MSFlexGrid1.Col =  3  Then
            MSFlexGrid1.Rows = MSFlexGrid1.Rows +  1 
            SendKeys "{home}" + "{down}"
            Exit Sub
        End If
    Else
        If MSFlexGrid1.Col =  0  Then
               ElseIf MSFlexGrid1.Col =  1  Then
               ElseIf MSFlexGrid1.Col =  2  Then
               End If
    End If
    MSFlexGrid1.Text = MSFlexGrid1.Text + Chr(KeyAscii)
End Sub

Form3

Option Explicit

Private Sub Command1_Click()
MSFlexGrid1.AddItem ""
End Sub

Private Sub Command2_Click()
MSFlexGrid1.RemoveItem MSFlexGrid1.Row
End Sub

Private Sub Command3_Click()
CommonDialog1.Filter = " Files(*.mdb)|*.mdb"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
Close # 1 
Print MSFlexGrid1.Text
Open CommonDialog1.FileName For Output As # 1 
End If
End Sub
Private Sub Command4_Click()
Beep
Form1.Show
Form3.Hide
End Sub

Private Sub MSFlexGrid1_GotFocus()
MSFlexGrid1.ColWidth( 0 ) =  400 
MSFlexGrid1.ColWidth( 1 ) =  4000 
MSFlexGrid1.ColWidth( 2 ) =  1500 
End Sub

Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDelete Then
    MSFlexGrid1.Text = Empty
End If
End Sub

Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
If KeyAscii =  8  Then
        If Len(Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel))) >  0  Then
            MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel) = Mid(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel),  1 , Len(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel)) -  1 )
            Exit Sub
        Else
        Exit Sub
        End If
    ElseIf KeyAscii =  13  Then
        If MSFlexGrid1.Col <=  2  Then
            SendKeys "{right}"
            Exit Sub
        ElseIf MSFlexGrid1.Col =  3  Then
            MSFlexGrid1.Rows = MSFlexGrid1.Rows +  1 
            SendKeys "{home}" + "{down}"
            Exit Sub
        End If
    Else 
        If MSFlexGrid1.Col =  0  Then
               ElseIf MSFlexGrid1.Col =  1  Then
               ElseIf MSFlexGrid1.Col =  2  Then
               End If
    End If
    MSFlexGrid1.Text = MSFlexGrid1.Text + Chr(KeyAscii)
End Sub

Form4

Option Explicit

Private Sub Command4_Click()
Beep
Form1.Show
Form4.Hide
End Sub

Private Sub Command5_Click()
Dim strFileName As String
Dim strFileContent As String
Dim nFreeFile As Integer
Dim nFileLenght As Integer
CommonDialog1.ShowOpen
strFileName = CommonDialog1.FileName
nFreeFile = FreeFile
If strFileName <> "" Then
Close #nFreeFile
Open strFileName For Input As nFreeFile
nFileLenght = FileLen(strFileName)
strFileContent = Input(nFileLenght, #nFreeFile)
MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel) = strFileContent
Close
End If
End Sub

Private Sub Command6_Click()
Dim strFileName As String
Dim strFileContent As String
Dim nFreeFile As Integer
Dim nFileLenght As Integer
CommonDialog1.ShowOpen
strFileName = CommonDialog1.FileName
nFreeFile = FreeFile
If strFileName <> "" Then
Close #nFreeFile
Open strFileName For Input As nFreeFile
nFileLenght = FileLen(strFileName)
strFileContent = Input(nFileLenght, #nFreeFile)
MSFlexGrid2.TextMatrix(MSFlexGrid2.RowSel, MSFlexGrid2.ColSel) = strFileContent
Close
End If
End Sub

Private Sub MSFlexGrid1_GotFocus()
MSFlexGrid1.ColWidth( 0 ) =  400 
MSFlexGrid1.ColWidth( 1 ) =  2000 
MSFlexGrid1.ColWidth( 2 ) =  3000 
End Sub

Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDelete Then
    MSFlexGrid1.Text = Empty
End If
End Sub

Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
If KeyAscii =  8  Then
        If Len(Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel))) >  0  Then
            MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel) = Mid(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel),  1 , Len(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel)) -  1 )
            Exit Sub
        Else
        Exit Sub
        End If
    ElseIf KeyAscii =  13  Then
        If MSFlexGrid1.Col <=  2  Then
            SendKeys "{right}"
            Exit Sub
        ElseIf MSFlexGrid1.Col =  3  Then
            MSFlexGrid1.Rows = MSFlexGrid1.Rows +  1 
            SendKeys "{home}" + "{down}"
            Exit Sub
        End If
    Else       
        If MSFlexGrid1.Col =  0  Then
               ElseIf MSFlexGrid1.Col =  1  Then
               ElseIf MSFlexGrid1.Col =  2  Then
               End If
    End If
    MSFlexGrid1.Text = MSFlexGrid1.Text + Chr(KeyAscii)
End Sub

Private Sub MSFlexGrid2_GotFocus()
MSFlexGrid2.ColWidth( 0 ) =  400 
MSFlexGrid2.ColWidth( 1 ) =  2000 
MSFlexGrid2.ColWidth( 2 ) =  3000 
End Sub

Private Sub MSFlexGrid2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDelete Then
    MSFlexGrid2.Text = Empty
End If
End Sub

Private Sub MSFlexGrid2_KeyPress(KeyAscii As Integer)
If KeyAscii =  8  Then
        If Len(Trim(MSFlexGrid2.TextMatrix(MSFlexGrid2.RowSel, MSFlexGrid2.ColSel))) >  0  Then
            MSFlexGrid2.TextMatrix(MSFlexGrid2.RowSel, MSFlexGrid2.ColSel) = Mid(MSFlexGrid2.TextMatrix(MSFlexGrid2.RowSel, MSFlexGrid2.ColSel),  1 , Len(MSFlexGrid2.TextMatrix(MSFlexGrid2.RowSel, MSFlexGrid2.ColSel)) -  1 )
            Exit Sub
        Else
        Exit Sub
        End If
    ElseIf KeyAscii =  13  Then
        If MSFlexGrid2.Col <=  2  Then
            SendKeys "{right}"
            Exit Sub
        ElseIf MSFlexGrid2.Col =  3  Then
            MSFlexGrid2.Rows = MSFlexGrid2.Rows +  1 
            SendKeys "{home}" + "{down}"
            Exit Sub
        End If
    Else      
        If MSFlexGrid2.Col =  0  Then
               ElseIf MSFlexGrid2.Col =  1  Then
               ElseIf MSFlexGrid2.Col =  2  Then
               End If
    End If
    MSFlexGrid2.Text = MSFlexGrid2.Text + Chr(KeyAscii)
End Sub

Private Sub MSFlexGrid3_GotFocus()
MSFlexGrid3.ColWidth( 1 ) =  3000 
MSFlexGrid3.ColWidth( 2 ) =  2000 
End Sub

Private Sub MSFlexGrid4_GotFocus()
MSFlexGrid4.ColWidth( 1 ) =  3000 
MSFlexGrid4.ColWidth( 2 ) =  2000 
End Sub

Private Sub Form_Load()
Dim conn As New ADODB.Connection
Dim SourceBase As ADODB.Connection
Dim ConnString As MSFlexGrid
Dim SQL As String
    SourceBase = "D:\...."
    ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SourceBase & ";Persist Security Info=False"
    conn.Open ConnString
    
Dim rs As New ADODB.Recordset

    rs.CursorLocation = adUseClient
    rs.CursorType = adOpenDynamic
    rs.LockType = adLockOptimistic

SQL = "SELECT RYP.[Название дисциплины],RYP1.[Название дисциплины]" & "FROM RYP,RYP1" & "WHERE RYP.[Название дисциплины] <> RYP1.[Название дисциплины];"
rs.Open SQL, conn
    Do Until rs.EOF = True
    conn.Execute SQL
    rs.MoveNext
    Loop
rs.Close
conn.Close

End Sub