Как заполнить значения текстового поля в combobox в базе данных VB access

---

Привет друзья,

Я хочу знать, как заполнить значения текстового поля в поле со списком в базе данных VB access.

или как получить значения базы данных в поле со списком при загрузке формы.

значения базы данных хранятся в другой таблице по форме 2, а поле со списком помещается на 1-ю форму, которая вводит все данные в базу данных.

кроме того, я пытаюсь сделать всплывающее окно для напоминания о дате на кнопке флажка.

Заранее спасибо

Что я уже пробовал:

вот мой код:

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub cmdExit_Click()
   End
End Sub

Private Sub CmdSave_Click()
   Set rs = New ADODB.Recordset
   rs.AddNew
   rs.Fields(CompanyName).Value = TxtCompanyName.Text
   Clear
End Sub

Private Sub UserForm_Click()
   con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Users\mahtab.ali\Documents\NoticeBook.mdb;Persist Security Info=False"
   rs.Open "Select * from CompanyName", con, adOpenDynamic, adLockPessimistic
   Me.fillcombo
End Sub

Sub Clear()
   ComboBox1.Value = ""
   TxtCompanyName.Text = ""
End Sub

Sub fillcombo()
   Do Until rs.EOF
      ComboBox1.AddItem rs!CompanyName
      rs.MoveNext
   Wend
End If
End Sub

---