Dim rst_NUMBER As ADODB.Recordset
FUN_VERIFICATION_NUMBER_CARD = True
Set rst_NUMBER = New ADODB.Recordset
rst_NUMBER.Open "SELECT CLIENT_CARDS_TBL.* " _
& " From CLIENT_CARDS_TBL " _
& " Where (((CLIENT_CARDS_TBL.NUMBER_CARD) = '" & STR_NUMBER_CARD & "'))", GLB_CLIENT_CONNECTION, adOpenKeyset, adLockOptimistic
If rst_NUMBER.RecordCount = 0 Then
FUN_VERIFICATION_NUMBER_CARD = False
End If
|