'Добавление в базу нового клиента

Private Sub CommandButton4_Click()
Dim cmd As ADODB.Command

Set cn = New ADODB.Connection
    cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Имидж_салон1;Data Source=ADMIN-ПК\SQLOLGA"
cn.Open

r = TextBox2.Text
r1 = TextBox3.Text
r2 = TextBox4.Text
r3 = ComboBox3.List(ComboBox3.ListIndex)
r4 = TextBox5.Text
r5 = TextBox6.Text
r6 = TextBox7.Text
Set cmd = CreateObject("ADODB.Command")
cmd.ActiveConnection = cn
cmdADO.CommandText = " Insert  into Клиент (Код_клиента, Фамилия, Имя, Отчество, Размер, Рост, Параметры, Контактный_телефон) values  values (109,r,r1,r2,r3,r4,r5,r6) "




Set rst = cmd.Execute

rst.Open ("Клиент"), cn
rst.MoveFirst
Do While Not rst.EOF
rst.Fields(0).Value = 34
rst.Fields(1).Value = r
rst.Fields(2).Value = r1
rst.Fields(3).Value = r2
rst.Fields(4).Value = r3
rst.Fields(5).Value = r4
rst.Fields(6).Value = r5
rst.Fields(7).Value = r6
rst.Fields(8).Value = r7
rst.MoveNext
Loop
rst.Close
End Sub

Private Sub CommandButton4_Click()
Dim cmd As ADODB.Command
Dim r, r1, r2, r3, r4, r5, r6 As String


Set cn = New ADODB.Connection
    cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Èìèäæ_ñàëîí;Data Source=ADMIN-ПК\SQLOLGA"
cn.Open

Set cmd = CreateObject("ADODB.Command")
cmd.ActiveConnection = cn
r = TextBox2.Text
r1 = TextBox3.Text
r2 = TextBox4.Text
r3 = ComboBox3.List(ComboBox3.ListIndex)
r4 = TextBox5.Text
r5 = TextBox6.Text
r6 = TextBox7.Text

cmd.CommandType = adCmdText
cmd.CommandText = " Insert into Клиент(Фамилия, Имя, Отчество, Размер, Рост, Параметры, Контактный_телефон) values ('r','r1','r2','r3','r4','r5','r6')" 'Код клиента добавляю счетчиком
cmd.Execute

cn.Close

End Sub