Option Compare Database
Option Explicit

Private Sub Start_Conversion_Click()
On Error GoTo Err_Start_Conversion_Click
On Error GoTo 0
Dim reflection As Object
    Set reflection = GetObject("RIBM")
    reflection.Connect

'** Prepare the database:
 
   Dim db As DAO.Database
   Dim rs As DAO.Recordset
   Dim i As Integer
   Dim TIME_STARTED, TIME_COMPLETED
   Dim varLineCounter As Long

    TIME_STARTED = Time()

    Set db = CurrentDb
    Set rs = db.OpenRecordset("testdb")
    
   DoEvents
      
'** Start the main loop:

       With reflection

                 
'PULL DATA
        .WaitForEvent rcKbdEnabled, "30", "0", 1, 1
         varLineCounter = 1
         Do While varLineCounter < 24
            varLineCounter = varLineCounter + 1
         If IsNumeric(.getdisplaytext(varLineCounter, 116, 4)) Then
'         MsgBox "yes " & varLineCounter & " " & .getdisplaytext(varLineCounter, 34, 35)
            rs.AddNew
            rs!Data0 = .getdisplaytext(varLineCounter, 9, 9)
            rs!data1 = .getdisplaytext(varLineCounter, 23, 9)
            rs!data2 = .getdisplaytext(varLineCounter, 34, 35)
            rs!data3 = .getdisplaytext(varLineCounter, 75, 13)
            rs!data4 = .getdisplaytext(varLineCounter, 95, 13)
         Else
         End If
         Loop
                          
'***** END OF MACRO **************
          
         On Error Resume Next
        .WaitForEvent rcKbdEnabled, "30", "0", 1, 1
         On Error GoTo 0
            
FINISH:
   
   rs.Close
     
   TIME_COMPLETED = Time()
   
   MsgBox "PROCESS COMPLETED !!!!"
  
Exit_Start_Conversion_Click:
    Exit Sub

Err_Start_Conversion_Click:
    MsgBox Err.Description
    Resume Exit_Start_Conversion_Click
End With
End Sub