After your "rst.Open..." command, try putting in the following:
if rst.RecordCount = 0 Then
GoTo NextPolicy
Else
rst.MoveLast
rst.MoveLast
End If
The MoveLast causes the DB handler to populate the recordset, and th
MoveFirst sets the first record as the current one
--
colofnatur
-----------------------------------------------------------------------
colofnature's Profile:
http://www.excelforum.com/member.php...fo&userid=3435
View this thread:
http://www.excelforum.com/showthread.php?threadid=54470