How to solve the problem get records from zkt40 on windows 10

txtMachNum = 1

        Dim dwEnrollNumber As String, dwEnrollNumber1 As Long
    Dim dwVerifyMode As Long
    Dim dwInOutMode As Long
    Dim dwYear As Long, dwYear1 As String
    Dim dwMonth As Long
    Dim dwDay As Long
    Dim dwHour As Long
    Dim dwMinute As Long, dwWorkcode As Long
    Dim dwSecond As Long
    Dim timeStr As String, time1 As String, time2 As String
    Dim sf As String
    Dim rstData As Recordset
    Dim rstControl As Recordset
    Dim x As Variant, c As Integer

Set rstData = CurrentDb.OpenRecordset("select * from [CHECKINOUT]")
Set rstControl = CurrentDb.OpenRecordset("select * from [ControlRecord]")
x = CZKEM1.EnableDevice(1, False) 'disable the device
    
If CZKEM1.ReadGeneralLogData(CInt(1)) Then
        ProgressBar0.Max = HCount
        c = 0
        ProgressBar0.Value = c
        x = SysCmd(acSysCmdInitMeter, "ÌÇÑí ÇáÊÍãíá", HCount)