CheckDB

Option Explicit
Dim cnADODB As ADODB.Connection
Dim strSQL As String
Dim rsGeneric As New ADODB.Recordset
'________________________________________________________


Private Sub Class_Initialize()
Set cnADODB = New ADODB.Connection
Set objError = New clslogit
cnADODB.ConnectionString = _
"PROVIDER=MSDASQL;dsn=Descendent;uid=;pwd=;database=Descendent;"
End Sub
'________________________________________________________


Public Function CheckField(ByVal sF As String, _
ByVal sF2 As String, ByVal sT As String) As Boolean
On Error Goto CheckErr
CheckSum = False

cnADODB.Open

strSQL = "SELECT " & sF & " FROM " & sT

Set rsGeneric = cnADODB.Execute(strSQL)
If rsGeneric.EOF And rsGeneric.BOF Then
Set rsGeneric = Nothing
CheckSum = False
Exit Function
End If
Do While Not rsGeneric.EOF
If sF2 = rsGeneric(sF).Value Then
CheckSum = True
Exit Function
End If
rsGeneric.MoveNext
Loop
rsGeneric.Close
cnADODB.Close
CheckErr:
Debug.Print Err.Number & Err.Description
Err.Clear
CheckSum = False
Exit Function
End Function