"Out of Memory" when trying to output record on one specific variable

I receive a "Out of Memory" error in my VB module when trying to update
a table with data from an SQL query. I receive the error when trying
to output a variable
!ALTEMPLID = in_recs.Fields("ALTEMPLID").

It even errors when I just try to update !ALTEMPLID = "X"
ALTEMPLID is a text field with 255 length

Any ideas??

Here's an excerpt:

Open "C:\docs\US LOAD\CNVR_PERS_TRNSLTNfuture.txt" For Output As #1 Len
= 1500

Do While Not in_recs.EOF

If in_recs.Fields("US_CAN_IND") = "USA" Then
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/information-technology/10827-out-memory-when-trying-output-record.html
USCAN = "HRMS01"
Else
USCAN = "HRMS02"
End If

With out_recs
.AddNew
!EMPLID = in_recs.Fields("C.EMPLID").Value
!US_CAN_IND = in_recs.Fields("US_CAN_IND").Value
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=10827
!USCAN = USCAN
!COMPANY = in_recs.Fields("C.COMPANY").Value


.Update
On Error Resume Next
End With

in_recs.MoveNext

Loop

 
Do share your immediate thoughts or reactions on this issue? We value your views! Login Now! or Sign Up Today! to share your views with us.. Gurfateh!