di select dulu mas, buat pembelajaran.
Set rspinjam = New ADODB.Recordset
sqlpinjam = "select * from tPinjam"
rspinjam.Open sqlpinjam, cnn, adOpenKeyset, adLockReadOnly
rspinjam.Find "Tanggal_Mengembalikan <='" & Date & "'"
If Not rspinjam.EOF And Not rspinjam.BOF Then
If rspinjam.Fields("tanggal_Mengembalikan").Value <= Date Then
msgbox " "vbcritical,"peringatan"
end if
end if
---------------------------------
Luggage? GPS? Comic books?
Check out fitting gifts for grads at Yahoo! Search.
[Non-text portions of this message have been removed]
