>msgbox "sp_InsertTransactions " & cLng(Transaction_ID ) & "," & company & "," & prefix & "," & suffix
>
> cmdInsertTrans.ActiveConnection = cnTransConnection
>' cmdInsertTrans.CommandText = "sp_InsertTransactions " & cLng(Transaction_ID ) & "," & company & "," & prefix & "," & suffix
>
> cmdInsertTrans.CommandText = "sp_InsertTransactions " & cLng(Transaction_ID ) & "," & "a*b" & "," & prefix & "," & suffix
>
>
>((((NOTE: In the line above I substituted the constant "a*b" for testing.))))

Try forcing quotes around the company:

cmdInsertTrans.CommandText = "sp_InsertTransactions " & cLng(Transaction_ID ) & "," & "'" & company & "'" & "," & prefix & "," & suffix

-Mike