Sub checkup()
 Dim Cn As Object, Rs As Object, Status As String
 Dim mySql As String, dbFullname As String, myCnt As Long
 dbFullname = "l:\Cpe\Shape\Interim\Interim.mdb"
 Status = Sheets("ridc checkup").Range("G7").Value  'SQL
 Variable
 mySql = "SELECT ordernumber, mobilenumber " & _
     "FROM bookings WHERE " & _
     "status =" & Status & ";" 'Stack your SQL string
 Status = Empty 'Clear SQL variable string

 Set Cn = CreateObject("ADODB.Connection")
 Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" _
        & dbFullname & ";"  'Create DB connection

 Set Rs = CreateObject("ADODB.Recordset")

 With Rs
     Set .ActiveConnection = Cn
    .Source = mySql 'Pass your SQL
    .Open , , 3, 3
     myCnt = .RecordCount
    If myCnt  0 Then
         .MoveLast: .MoveFirst
          'Pull data to first sheet, cells
 a1:RecordestCountRow & column 3 _
             3 fields in the sql pass
         Sheets(2).Range(Cells(1, 2), Cells(myCnt,
 3)).CopyFromRecordset Rs
     End If
     Set myRng = Nothing
     .Close
 End With
 Cn.Close
 Set Rs = Nothing: Set Cn = Nothing
 End Sub