Dim nCount As Long
Dim nRow As Long
 
nRow = 0
nCount = Data3.Recordset.RecordCount
 
While nRow < nCount - 1
  DBGrid1.Row = nRow
  DBGrid1.Col = 1 
  MsgBox Str$(nRow) & "/" & DBGrid1.Text 
Wend

Dim nRow As Long
 
nRow = 0
With Data3.Recordset
  .MoveFirst
  Do Until .EOF
    MsgBox CStr(nRow) & "/" & .Fields(0)
    nRow = nRow + 1
    .MoveNext
  Loop
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de