what's wrong with this function?

[Angelle]

Public Function LastPaymentDate( Conn As ADODB.Connection, _
AccountNumber As String) As Date
Dim RS As ADODB.Recordset

Set RS = Conn.Execute( _
"SELECT * " _
& "FROM AR " _
& "WHERE AccountNumber = '" & AccountNumber & "' " _
& "ORDER BY PostingDate DESC")
LastPaymentDate = IIf(RS.EOF, 0, RS("PostingDate"))
RS.Close
Set RS = Nothing
End Function

[jjortiz]

Do you have the Conn object declared in the General declarations?

[honeybee]

Originally posted by Angelle
Public Function LastPaymentDate( Conn As ADODB.Connection, _
AccountNumber As String) As Date
Dim RS As ADODB.Recordset

Set RS = Conn.Execute( _
"SELECT * " _
& "FROM AR " _
& "WHERE AccountNumber = '" & AccountNumber & "' " _
& "ORDER BY PostingDate DESC")
LastPaymentDate = IIf(RS.EOF, 0, RS("PostingDate"))
RS.Close
Set RS = Nothing
End Function

Also, can you assign 0 to a date variable?

.

[Mark Sreeves]

Conn.Execute should be
Conn.OpenRecordset

[Mark Sreeves]

or is it:

dim strSQL as string
strSQL = "SELECT * " _ 
& "FROM AR " _ 
& "WHERE AccountNumber = '" & AccountNumber & "' " _ 
& "ORDER BY PostingDate DESC"

rs.Open strSQL, conn, adOpenKeyset, adLockOptimistic