Private Sub Timer1_Timer()
On Error Resume Next
Dim iT As Integer
    rsAusg.Requery
    Grid1.Refresh
    iT = iT + 1
    If iT = 10 Then
        Timer1.Enabled = False
        iT = 0
    End If
 
End Sub

bis später
Tomy