SQL

For at gå vidre til næste record skal du bruger rs.movenext.

rs.open(......)
do while not rs.EOF
  ..noget med dit recordset
  rs.movenext
loop

Jeg antager at rs i din kode er et recordset.

Benyt rs.NextRecordset.

Det kan gøres som følger :

Private Sub comNavn_Click()
Set ws = Workspaces(0)
Set db = ws.OpenDatabase(App.Path & "\data.mdb")
Set rs = db.OpenRecordset("SELECT * FROM data1")
rs.MoveFirst
Do While rs.EOF = False
    If rs!dbId = comNavn.ItemData(comNavn.ListIndex) Then
            varId = rs!dbId
            txtAdresse.Text = rs!dbAdresse
            txtPostOgBy.Text = rs!dbPostnummer + " " + rs!dbBy
            txtLand.Text = rs!dbLand
            txtTelefonnummer.Text = rs!dbTelefonnummer
            txtMobilnummer.Text = rs!dbMobilnummer
            txtEmail.Text = rs!dbEmail
            txtHjemmeside.Text = rs!dbHjemmeside
            txtFoedselsdag.Text = rs!dbFoedselsdag
    End If
rs.MoveNext
Loop
End Sub

/Tubber

Hey OCP, kan du tjekke på om der er flere end 1 recordset? Lige som du kan tjekke om der er flere records i aktuelle recordset (RS.EOF)

Hmmm... det mener jeg ikke kan lade sig gøre. Men du kan jo selv kontrollere om recordset'et er lig nothing i så fald er der ikke flere recordsets.

Men du burde jo vide hvor mange recordsets der er - det kommer jo fra din SP?

Det kan man vel godt, for er der kun en record så har du en
BOF > 1 < EOF, det må da kunne sættes op som et kriterie ?

du kan vel også tælle hvormange RS.MOVENEXT der er ?

Dim i as Integer
i = 0
RS.MOVEFIRST
Do while not RS.EOF
  List1.AddItem = RS!NAVN
  i + 1
  if i = 1 then
      msgbox "Der er nu en post!"
  elseif i = 2 then
      msgbox "Der er nu mere end en post!"
  else:
  end if
loop

Bare et forslag