Добавление записей через код VB

Private cn As ADODB.Connection
Private rs As ADODB.Recordset
 
Private Sub Command7_Click()
Form1.Show
Unload Me
End Sub
 
Private Sub Command8_Click()
 
End Sub
 
Private Sub Form_Load()
Dim cmd As String
Dim sql, sql2, sql3 As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
cmd = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & _
"D:\Diplom\oxotoxozyastvo.mdb"
Set cn = New ADODB.Connection
With cn
.ConnectionString = cmd
.Open
End With
'Создать запрос
sql = "select*from KompaniiUslugi INNER JOIN KomUslugi ON KompaniiUslugi.KodKompanii=KomUslugi.PostavshikUslug"
'Открыть набор записей
Set rs = New ADODB.Recordset
With rs
.Open sql, cn, adOpenForwardOnly, adLockReadOnly
Do While Not rs.EOF
'Включить  в список
Combo3.AddItem rs("NazvanieKompanii")
'Перейти к следующей записей
rs.MoveNext
Loop
'Закрыть набор записей
Close
End With
Set rs = Nothing
'Закрыть подключение
cn.Close
'Уничтожить объект подключения
Set cn = Nothing
 
 
 
Set cn = New ADODB.Connection
With cn
.ConnectionString = cmd
.Open
End With
'Создать запрос
sql2 = "select*from KomUslugi"
'Открыть набор записей
Set rs = New ADODB.Recordset
With rs
.Open sql2, cn
 
'Включить  в список
Text1 = rs("DataOplati")
Text2 = rs("Nashisleno")
Text3 = rs("Uplasheno")
Text4 = rs("Primeshania")
 
'Закрыть набор записей
Close
End With
Set rs = Nothing
'Закрыть подключение
cn.Close
'Уничтожить объект подключения
Set cn = Nothing
 
End Sub
 
'Private Sub Command5_Click()
'    Set rs = Nothing
'    Set rs = New ADODB.Recordset
'    sql3 = "INSERT INTO [KomUslugi] ([DataOplati], [Nashisleno], [Uplasheno], [Primeshania]) VALUES (Text1.Text, Text2.Text, Text3.Text, Text4.Text)"
    
 
'With rs
'.Open sql3
'Close
'End With
'Set rs = Nothing
'Закрыть подключение
'Уничтожить объект подключения
End Sub

'Очищаю текстовые поля по нажатию на кнопку
Private Sub Command8_Click()
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
End Sub
 
'Сохраняю запись
Private Sub Command5_Click()
    ' Код компании из списка (определяется по ее названию)
    Dim KodKompanii As Integer
    Dim cn As ADODB.Connection
    cmd = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & _
        "D:\Diplom\oxotoxozyastvo.mdb"
    Set cn = New ADODB.Connection
    With cn
        .ConnectionString = cmd
        .Open
    End With
    Set rs = Nothing
    ' Определение PostavshikUslug: ищем номер по названию
    sql = "select KodKompanii from KompaniiUslugi where NazvanieKompanii = '" & Combo3.Text & "'"
    Set rs = New ADODB.Recordset
    With rs
        .Open sql, cn, adOpenForwardOnly, adLockReadOnly
    End With
    KodKompanii = rs("KodKompanii")
    Set rs = Nothing
    
    ' Добавляем новую запись в базу
    Set rs = New ADODB.Recordset
    
    With rs
        .ActiveConnection = cn
        .CursorLocation = adUseServer
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
    End With
    
    rs.Open "KomUslugi", cn
    rs.AddNew
    ' Связываем по ключу (значение ключевого поля KodKompanii таблицы KompaniiUslugi)
    rs!PostavshikUslug = KodKompanii
    rs!DataOplati = Text1.Text
    rs!Nashisleno = Int(Text2.Text)
    rs!Uplasheno = Int(Text3.Text)
    rs!Primeshania = Text4.Text
    rs.Update
    
    rs.Close
    Set rs = Nothing
    'Закрыть подключение
    cn.Close
    'Уничтожить объект подключения
    Set cn = Nothing
Set cn = Nothing