[vb6] Rst.Movenext?

[Verwijderd]

Kan iemand mij vertellen waarom rst.movenext niet werkt? Hij blijft steeds op hetzelfde punt hangen...

code:

Private Sub VulDb()

'On Error GoTo Fout
    
    Call FrmLaad.Laad
    
    Dim StrSql As String
    
    If DbArt.Recordset.EOF = False And DbArt.Recordset.BOF = False Then
        DbArt.Recordset.MoveFirst
        Do While DbArt.Recordset.EOF = False
            DbArt.Recordset.Delete
            DbArt.Recordset.MoveNext
        Loop
    End If
    RefreshDbArt
    'DbArt.NewPassword "", "dinges"
    
    Set Db = New ADODB.Connection
    Call Db.Open("Provider=SQLOLEDB;Data Source=" & TxtServer.Text & ";Initial Catalog=" & TxtDb.Text & ";User ID=" & TxtUser.Text & ";Password=" & TxtDbWW.Text)
    Db.CursorLocation = adUseServer
    
    Set Rst = CreateObject("ADODB.Recordset")
    Rst.CursorLocation = adUseServer
    StrSql = "SELECT items.ItemCode, items.Description FROM items, ItemAssortment WHERE " & _
    "items.Description NOT LIKE 'DISP%' AND " & _
    "items.Description NOT LIKE 'disp%' AND " & _
    "items.ItemCode <> '00' AND " & _
    "ItemAssortment.code <> 'Z5' AND " & _
    "ItemAssortment.code <> 'Z6' AND " & _
    "ItemAssortment.code <> 'Z7' AND " & _
    "ItemAssortment.code <> 'Z9' ORDER BY items.ItemCode"
    
    Rst.Open StrSql, Db, adOpenDynamic, adLockReadOnly, -1
    
    If Rst.EOF = True And Rst.BOF = True Then
        MsgBox "Kan geen geldige artikelen vinden in de database!", vbOKOnly + vbExclamation, "Fout!"
        Exit Sub
    Else
        Dim Tel As Integer
        Tel = 10
        
        'Do While Rst.EOF = False
        Do While Tel > 0
            MsgBox Rst("ItemCode"), vbOKOnly, "code"
            MsgBox Rst("Description"), vbOKOnly, "dec."
            DbArt.Recordset.AddNew
            DbArt.Recordset("Artikelnummer") = Rst("ItemCode")
            DbArt.Recordset("Omschrijving") = Rst("Description")
            DbArt.UpdateRecord
            Rst.MoveNext
            Tel = Tel - 1
        Loop
    End If
    
    'Afsluiten
    Rst.Close
    Unload FrmLaad
    
Exit Sub
Fout:
    Dim ErrN As String
    Dim ErrD As String
    ErrN = Err.Number
    ErrD = "FrmMain;VulDb(): " & Err.Description
    Call DispFout(ErrN, ErrD)
    
End Sub

Let ff niet op de slordigheidjes aub...

[gorgi_19]

Kan iemand mij vertellen waarom rst.movenext niet werkt? Hij blijft steeds op hetzelfde punt hangen...

Debuggen is iets wat je zelf mag doen