Iterating trough a populated recordset in ADO.

See more:

ADO

MS-Access

VBA

Im trying to get rows from 2 columns in a recordset and then inser those in a table.

The recordset is populated and i used .MoveFirst to start at the beginning of the rs, Still i get EOF true at the very start and it jumps out of the do while..

I can't figureout why... or how to fix this. Anny insight is welcome!


current Code ~

Public Function makeSäljare()
    'Create rs
    Dim rsData As ADODB.Recordset
    Set rsData = New ADODB.Recordset
    Dim sql As String
    
    'Select what should be included in the rs.
    rsData.Open "SELECT Forhandler, Selger FROM data", _
    CurrentProject.Connection, adOpenDynamic, adLockOptimistic
    rsData.MoveFirst
    
    
    MsgBox rsData.GetString
        
    'Manipulate each row of the result column.
    Do While Not rsData.EOF
        

        sql = "INSERT INTO säljare (Partner_Namn, Namn ) VALUES ('" & rsData!forhandler & "','" & rsData!Selger & "');"
        MsgBox sql
        'DoCmd.SetWarnings (False)
        DoCmd.RunSQL (sql)
        'DoCmd.SetWarnings (True)
        
        
        rsData.MoveNext
        'If rsData.EOF Then Exit Do
        
    Loop
    
    rsData.Close
    
End Function