Udregne tal fra database med vb60 crash

Har et problem med et database program.
Har nogle tal i en database,
har en knap-kontrol. som når jeg klikker på den
skal den så vise beløbende sammenlagt og divideret med en procents sats.

Men når jeg klikker på knappen fryser programmet OG vb6

anyway her er kontrollen som laver lort.


Private Sub CMDstatus_Click()

Dim opdaterbelob As Integer
opdaterbelob = 0

  Do While Data1.Recordset.EOF = False
    If Data1.Recordset("antal %") = 6 Then
      opdaterbelob = opdaterbelob + belob
    End If
  Loop

opdaterbelob = opdaterbelob * 6

BLK6BELOB.Caption = (opdaterbelob)
   
End Sub