I have one adodc control and one combo box. The adodc is setup to connect to a sql server using this select statement
"Select Last_Name, First_Name from Persdata"
(Persdata is the table).

The combo box is setup with datasource as adodc1 and the datafield as Last_Name.

The only other code I have is on form load and it is

Private Sub Form_Load()
Dim record As Variant
Adodc1.Recordset.MoveFirst
Do Until Adodc1.Recordset.EOF
record = Adodc1.Recordset.Fields("Last_Name").Value
If record <> "" Then
Combo1.AddItem record
End If
Adodc1.Recordset.MoveNext
Loop

End Sub

The first time run, it populates the drop down of the combo with all Last_Names in the table. After I close and run a second time, the combo box is empty. I go and check the SQL table and the complete Last_Name column is now empty. I have been trying for 2 weeks now to be able to get a combo box that will list a field out of a sql table. I know some will say use a connect string which I have tried but I have never gotten that to work either. I would be more than willing to give someone all the info required to write a connect string but I also know people arent here to write my code but I am either too new or too stupid to figure this out. Help me please.