سلام دوست عزیز بهتر در قسمت evente ( on not in list ( فرمی که این لیست باکس رو داره
کد زیر رو بنویسید اونوقت اگه کسی عبارتی رو که تو لیست نیست تایپ کنه اتوماتیک به اون جدول اضافه میشه راستی باید به جای table name و field name نام جدول و فیلد مربوطه رو بنویسی موفق باشی

Dim strSQL As String
Dim i As Integer
Dim Msg As String

'Exit this sub if the combo box is cleared
If NewData = "" Then Exit Sub

Msg = "'" & NewData & "' این گزینه در لیست نمی باشد ." & vbCr & vbCr
Msg = Msg & "آیا می خواهید اضافه شود ؟"

i = MsgBox(Msg, vbQuestion + vbYesNo + vbMsgBoxRight, "مقدار ورودی نامعتبر است ")
If i = vbYes Then
strSQL = "Insert Into table name ([field name]) values ('" & NewData & "')"
CurrentDb.Execute strSQL, dbFailOnError
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If