I have pasted below the routine that adds new row to my database.  You will notice toward the end of the
sub some are commented out.  I can successfully add fields up to the point where they are comment out.  If I uncomment the first
one, I get the following message:

[IBM][CLI Driver][DB2/SUN] SQL0010N.
The string constant beginning with "".?)" does not have
an ending string delimiter.  SQLSTATE= 42603.
42603

I have checked all my parameters between vb6 and the sun box, but nowhere can I find something that will truncate.
Any help from anyone would be greatly appreciated.



' *******************************************************************************************************
'     subroutine called buildRecordset                                                                                         *
'     builds the recordset from the form.                                                                                       *
' *******************************************************************************************************
Public Sub buildRecordset()

With RSSecurity
          .AddNew
          .Fields("adop_type") = aType
          .Fields("adop_last_name") = txtLastName.Text
          .Fields("adop_first_name") = txtFirstName.Text
          .Fields("adop_middle") = txtMI.Text
          .Fields("adop_date_of_birth") = txtBirthDate.Text
          .Fields("adop_county_birth") = cmbCountyBirth.Text
          .Fields("adop_date_of_adoptions") = txtAdoptYear.Text
          .Fields("adop_county_adoption") = cmbCounty.Text
          .Fields("adop_county_new_occur") = cmbCountyOccur.Text
          .Fields("adop_father_ln_adop_par") = txtFatherLName.Text
          .Fields("adop_father_fn_adop_par") = txtFatherFName.Text
          .Fields("adop_father_mi_adop_par") = txtFatherMI.Text
          .Fields("adop_mother_ln_adop_par") = txtMotherLName.Text
          .Fields("adop_mother_fn_adop_par") = txtMotherFName.Text
          .Fields("adop_mother_mi_adop_par") = txtMotherMI.Text
          .Fields("adop_volume_num") = txtVolume.Text
          .Fields("adop_page_num") = txtPage.Text
          .Fields("adop_cartridge_num") = txtCartridge.Text
          .Fields("adop_frame_num") = "     "
          .Fields("adop_father_ln_orig_par") = txtOrigFatherLast.Text
          .Fields("adop_father_fn_orig_par") = txtOrigFatherFirst.Text
          .Fields("adop_father_mi_orig_par") = txtOrigFatherInit.Text
          .Fields("adop_mother_ln_orig_par") = txtOrigMotherLast.Text
          .Fields("adop_mother_fn_orig_par") = txtOrigMotherFirst.Text
          .Fields("adop_mother_mi_orig_par") = txtOrigMotherInt.Text
'RSSecurity!adop_race_mother = txtOrigMotherRace.Text
'RSSecurity!adop_race_father = txtOrigFatherRace.Text
'RSSecurity!adop_racf_entered = wsRacf
'RSSecurity!adop_int_entered = wsinit
'RSSecurity!adop_date_entered = txtBirthDate.Text
'RSSecurity!adop_racf_modified = wsRacf
'RSSecurity!adop_date_modified = txtBirthDate.Text
'RSSecurity!adop_int_verified = wsinit

'MsgBox RSSecurity!adop_int_verified


'RSSecurity!adop_date_verified = txtBirthDate.Text

'If txtNotes.Text = "" Then
 '  RSSecurity!adop_memo = "Default Value"
'Else
'   RSSecurity!adop_memo = txtNotes.Text
'End If


'MsgBox RSSecurity!adop_date_verified
'MsgBox RSSecurity!adop_memo


       .Update
End With
 
end Sub