Code:
Dim StrSql As String
If Me.cbopcat = "Adult T-Shirt" Then
StrSql = "Insert into [Adult T-Shirt Instore](ReceivedDate,ProductDescription,Design,Size,Colour,ReceivedQuantity,RejectedQuantity,Currency,UnitPrice,TotalAmount,Remarks)" & _
"Values ('" & Me.txtrcvdate & "','" & Me.cbopdes & "','" & Me.cbodesign & "','" & Me.cbosize & "','" & Me.cbocolor & "','" & Me.txtrcvquantity & "','" & Me.txtrejqty & "','" & Me.txtcurrency & "','" & Me.txtunitprice & "','" & Me.txtttlamount & "','" & Me.txtremarks & "')"
ElseIf Me.cbopcat = "Kids T-Shirt" Then
StrSql = "Insert into [Kids T-Shirt Instore](ReceivedDate,ProductDescription,Design,Size,Colour,ReceivedQuantity,RejectedQuantity,Currency, UnitPrice,TotalAmount,Remarks)" & _
"Values(" & Me.txtrcvdate & "','" & Me.cbopdes & "','" & Me.cbodesign & "','" & Me.cbosize & "','" & Me.cbocolor & "','" & Me.txtrcvquantity & "','" & Me.txtrejqty & "','" & Me.txtcurrency & "','" & Me.txtunitprice & "','" & Me.txtttlamount & "','" & txtremarks & "')"
End If
Debug.Print StrSql
'CurrentDb.Execute stsql, dbFailOnError
Does any of your data have apostrophes? That could throw off your text delimiters in your sql string.