Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Status1.SimpleText=?
Status1.Panels(x).text=?
do until rs.EOF
i=i+1
Status1.Panels(x) = "Reading record " & i & " of " & rs.recordcount & "."
...
loop
Private Sub Data1_RecordChange()
'Put Status Code Here
End Sub
^Not entirely sure if this correct I don't have VB in front of me