Private Sub Form_Load()
 
        Dim rs As ADODB.Recordset
        Dim sql As String
        Dim i As Integer
        Dim str As String
       
        
   ' Выбор данных для сравнения
        sql = "SELECT tbl_Current_Diagnos.ID_Tehniks " & _
                "FROM tbl_Current_Diagnos " & _
                "WHERE tbl_Current_Diagnos.Status =False"

        
        Set rs = New ADODB.Recordset
            rs.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
            If rs.RecordCount <> 0 Then
                rs.MoveLast
                i = rs.RecordCount
                ' Цикл нужен
                Debug.Print rs.Fields(0)
                rs.MoveFirst
                rs.Close
                Set rs = Nothing
     

          
        End Sub