Что именно этот код делает?

---

Я изучаю старый код vb 6, так как у меня есть работа поддержки
я не понял нижеприведенных строк

Public Function BadgeVerificationSucceed(sBadgeID As String) As Boolean
   
    
   On Error GoTo ErrHandler

    If Len(sBadgeID) = 0 Then Exit Function
    
    Set rstADO = New ADODB.Recordset
    With rstADO
        sqlQuery = "Select *  FROM  tblUsers  Where [Employee ID] = '" & sBadgeID & "'" ' And [ClusterID]=" & MyClusterID & " And [EnableCompartment] <> 0  Order By [CabinetCode],[CompartmentCode]"
        
        ''debug..print sqlQuery
        .Open sqlQuery, cnsecurecabinetdb, adOpenKeyset, adLockOptimistic, adCmdText
        If Not .EOF Then
            ![RFID] = myRFID
            myFullName = ![First Name] & " " & ![Last Name]
            myUserID = ![UserID]
            .Update
            BadgeVerificationSucceed = True
        End If
        .Close
    End With
    Set rstADO = Nothing
    
    Exit Function

Что я уже пробовал:

Пробовал преобразование кода с VB 6 на vb.net его выдавала ошибку.

---