Windows 10でzkt40からレコードを取得する問題を解決する方法

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)

私が試したこと：

ファイアウォールをオフにして、window10に含まれているウイルス対策を無効にしようとしました
ただし、このコードはwindows10では機能しませんが、このコードはwindows70でうまく機能します