Запросы VBA sql не отправляют данные в базу данных Access

Question

Я пытался отправить свои данные в базу данных Microsoft Access, используя VBA Word. У меня есть текстовое поле и ComboBox для ввода данных, и вот что я пробовал до сих пор:

Dim name As String
Dim lastname As String
Dim studyPlace As String
Dim faculty As String
Dim marriage As String
Dim address As String
Dim age As String
Dim con As ADODB.Connection
Private Sub CommandButton1_Click()

name = UserForm1.ismtxt.Text
lastname = UserForm1.familyatxt.Text
studyPlace = UserForm1.unicombo.Value
faculty = UserForm1.fakultetcombo.Value
marriage = UserForm1.oilacombo.Value
address = UserForm1.adresscombo.Value
age = UserForm1.yoshtxt.Text

Set con = New ADODB.Connection

con.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=C:\Users\Pavilion\Documents\IAT.accdb;"
con.Open

sql = "insert into 4IAT (Name,LastName,StudyPlace,Age,Faculty,Marriage,Address) values ('" & name & "','" & lastname & "','" & studyPlace & "','" & age & "','" & faculty & "','" & age & "','" & marriage & "','" & address & "')"


con.Execute sql
con.Close



End Sub


Private Sub UserForm_Initialize()

With unicombo
.AddItem "ADU"
.AddItem "Boshqa"
End With

With fakultetcombo
.AddItem "Fizika-Matematika"
.AddItem "Ijtimoiy-iqtisodiyot"
.AddItem "Xorijiy tillar"
.AddItem "Tarix"
.AddItem "Fiologiya"
.AddItem "Tabiiy fanlar"
End With

With oilacombo
.AddItem "Oilali"
.AddItem "boydoq"
End With

With adresscombo
.AddItem "Andijon shahri"
.AddItem "Shahrihon"
.AddItem "Bo'z"
.AddItem "Qo'rg'ontope"
.AddItem "Xo'jaobod"
.AddItem "Andijon Tuman"
End With




End Sub

Без комбобокса я пытался выполнить только с текстовым полем, и это работает. Но я не уверен, что происходит с combobox