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

Name:
Check Fileds in Database

Description:
The class runs throught a database (*.mdb) file an looks
for Double Fields that you whant to look up

Inputs:
sF = Field to Looking
sF2 = Field To Compare against
sT = Table To look ing

Returns:
Boolean = True/False

Assumes:
make sure yaou have created an ODBC Data source
and change the connection String To you database