Добавление данных в базу SQL Server c помощью Адо и VBA

Формулировка задачи:

В силу своих умений и возможностей искала решения в инете, но то что находило не работало. Вот что получилось

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

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

Скорее всего я делаю совершенно неправильно, прошу подсказать в каком направление мне двигаться

Решение задачи: «Добавление данных в базу SQL Server c помощью Адо и VBA»

textual
                            Листинг программы 
                        
                            AddSQL "Фамилия", r
AddSQL "Имя", r1
AddSQL "Отчество", r2