My dlookup function

TheMSsForum.com: The Microsoft Software Forum

Hi

I did a simple dlookup function and am posting it here for novices like me.
:)

Aggregate functions are not supported.

Regards

Will below do?

Thanks

Regards


Function DLookup(ByVal SearchFld As String, ByVal SearchTbl As String, ByVal
_
SearchCriteria As String) As Object
Dim Cmd As OleDb.OleDbCommand
Dim Reader As OleDb.OleDbDataReader
Dim Value As Object = DBNull.Value

DLookup = Nothing
Cmd = New OleDb.OleDbCommand("SELECT " & SearchFld & " FROM " & SearchTbl &
_
" WHERE " & SearchCriteria, DBConnection())
Reader = Cmd.ExecuteReader()
If Microsoft.VisualBasic.Left(SearchFld, 1) = "[" Then
SearchFld = Microsoft.VisualBasic.Right(SearchFld,
Microsoft.VisualBasic.Len(SearchFld) - 1)
End If
If Microsoft.VisualBasic.Right(SearchFld, 1) = "]" Then
SearchFld = Microsoft.VisualBasic.Left(SearchFld,
Microsoft.VisualBasic.Len(SearchFld) - 1)
End If
If (Reader.Read()) Then
Value = IIf(Reader.GetValue(Reader.GetOrdinal(SearchFld)) Is Nothing, "", _
Reader.GetValue(Reader.GetOrdinal(SearchFld)))
End If
DLookup = Value

End Function
Top