I am using the Combo box. Not the data one. I have the code for it. I have about 25 text boxes and using the combo box I have it to display the information in the text boxes. This works. I just want it to update the combo box which it only does after I exit it out. Everthing else does when I hit the update button I have placed on the form. The auto complete does not work at all for I am missing the code for it and can not find a code for it at all. So lets just get one thing working I guess at a time. My code is listed but not the update just got that working last night. I will add it to it.
Option Explicit
Private sDataPath As String
Private Sub CboLastName_Click(Index As Integer)
Select Case Index
Case 0
Data2.Recordset.FindFirst "[Last Name]='" & CboLastName(Index).Text & "'"
End Select
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Shell ("Calc.exe"

, 3
End Sub
Private Sub Command3_Click(Index As Integer)
Data2.Recordset.AddNew
End Sub
Private Sub Command4_Click()
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
End Sub
Private Sub Command5_Click()
PrintForm
End Sub
Private Sub Command7_Click()
Data2.Recordset.Update
End Sub
Private Sub Form_Activate()
Dim X As Long
Data2.Recordset.MoveFirst
For X = 0 To 0
CboLastName(X).Text = Data2.Recordset("[Last Name]"

Next
Do
For X = 0 To 0
CboLastName(X).AddItem Data2.Recordset("[Last Name]"

Next
Data2.Recordset.MoveNext
Loop Until Data2.Recordset.EOF
Data2.Recordset.MoveFirst
End Sub
Private Sub Form_Load()
sDataPath = App.Path & "\Children3.mdb"
Data2.DatabaseName = sDataPath
End Sub

;-)