Dim cmdg As OleDbCommand
Dim sqlr As String
Dim sqlra As New OleDbCommand
Dim conb = New OleDbConnection("Provider=Microsoft.jet.OLEDB.4.0;data source=inbound.mdb")
sqlr = "Insert Into ManualDO (BLNo,DONo,ReleaseTo,Vessel,Voyage,FromPort,ETA,NoCont,Weight,Measure) Values ('" & IIf(rd1![NoBL] = "", " ", rd1![NoBL]) & "' , '" & Strings.Right(IIf(rd1![MNoBL] = "", rd1![NoBL], rd1![MNoBL]), 7) & "','" & tempCust & "','" & IIf(UCase(rd1![NMAngk]) = "", " ", UCase(rd1![NMAngk])) & "',V. '" & rd1![NoVoy] & "','" & IIf(Trim(rd1![NMPort]) = "", " ", Trim(rd1![NMPort])) & "','" & Format(rd1![TGTiba], "MMMM DD YYYY") & "','" & IIf(NoCont = "", " ", NoCont) & "','" & Format(Trim(str(rd1![Bruto])), "###,##0.000") & " KGS','" & Format(Trim(str(rd1![Volume])), "###,##0.000") & " M3')"
cmdg = New OleDbCommand(sqlr, conb)
conb.Open()
sqlra = New OleDbCommand(sqlr, conb)
sqlra.ExecuteNonQuery()
Could you help me whats the matter with this code ?
That error appear in line sqlr query.
Thanks before