I am experiencing a coding problem.
Essentially at this point all i'm trying to do is populate a combo box with data coming from a client table. The code appears sound however I receive a "TYPE MISMATCH" error during compilation.
The debugger points to the 'additem' property.Please review my code and tell me if you can spot the problem. Thanks in advance.
Private Sub Form_Load()

'Declare Variables
Dim cnn As ADODB.Connection
Dim AccessConnect As String
Dim ASql As String
Dim rsClient As New Recordset


Set cnn = New ADODB.Connection
AccessConnect = "DSN=Sigmund;" & _
                     "Database=sigmundt.mdb;" & _
                     "DefaultDir=D:\documents and settings\administrator.gizmo\my documents" & _
                     "visual studio projects\gizmo\client.mdb;" & _
                     "Uid=Admin;Pwd=;"

cnn.ConnectionString = AccessConnect
cnn.Open
'Build the SQL statement
ASql = "SELECT firstname FROM client" 'MUST USE DOUBLE QUOTES


'Open a recordset
rsClient.Open ASql, cnn, adOpenStatic, adLockReadOnly
Set Combo1.DataSource = rsClient
Do While Not rsClient.EOF

    Combo1.AddItem rsClient
    rsClient.MoveNext
Loop
Combo1.DataField = "FirstName"

I may be wrong, but I don't think you need to set the datasource property of the Combo1 combo box. I'd recommend either binding the combo box to a datasource through the Visual Basic.net IDE (which allows you to set your select statement, display text, and item value), or, do NOT bind the combo box to a data source, and do not bind the data field. You'll have to add some extra code to grab the selectedItem from the combo box and use that in your database.