VB Code:
Private Sub lInsertCommand()
cmdInsert.Connection = FTLDb
cmdInsert.CommandText = "Insert Into tblLogbook (PilotID,acDate,Copilot,Capacity,TakeOff,Land,[Day],Night,Instrument,Route,Reg,DutyID,Duty,AcType, " & _
"Remark,DutyStart,EndDuty,RestStart,Landings,RestEnd) Values (@PilotID,@acDate,@Copilot,@Capacity,@TakeOff,@Land,@Day,@NIght,@Instrument,@Route,@Reg,@DutyID,@Duty,@AcType, " & _
"@Remark,@DutyStart,@EndDuty,@RestStart,@Landings,@RestEnd)"
cmdInsert.Parameters.Add(New OleDbParameter("@PilotID", "PilotID"))
cmdInsert.Parameters.Add(New OleDbParameter("@acDate", "acDate"))
cmdInsert.Parameters.Add(New OleDbParameter("@Copilot", "Copilot"))
cmdInsert.Parameters.Add(New OleDbParameter("@Capacity", "Capacity"))
cmdInsert.Parameters.Add(New OleDbParameter("@TakeOff", "TakeOff"))
cmdInsert.Parameters.Add(New OleDbParameter("@Land", "Land"))
cmdInsert.Parameters.Add(New OleDbParameter("@Day", "[Day]"))
cmdInsert.Parameters.Add(New OleDbParameter("@Night", "Night"))
cmdInsert.Parameters.Add(New OleDbParameter("@Instrument", "Instrument"))
cmdInsert.Parameters.Add(New OleDbParameter("@Route", "Route"))
cmdInsert.Parameters.Add(New OleDbParameter("@Reg", "Reg"))
cmdInsert.Parameters.Add(New OleDbParameter("@DutyID", "DutyID"))
cmdInsert.Parameters.Add(New OleDbParameter("@Duty", "Duty"))
cmdInsert.Parameters.Add(New OleDbParameter("@AcType", "AcType"))
cmdInsert.Parameters.Add(New OleDbParameter("@Remark", "Remark"))
cmdInsert.Parameters.Add(New OleDbParameter("@DutyStart", "DutyStart"))
cmdInsert.Parameters.Add(New OleDbParameter("@EndDuty", "EndDuty"))
cmdInsert.Parameters.Add(New OleDbParameter("@RestStart", "RestStart"))
cmdInsert.Parameters.Add(New OleDbParameter("@Landings", "Landings"))
cmdInsert.Parameters.Add(New OleDbParameter("@RestEnd", "RestEnd"))
cmdInsert.Parameters.Add(New OleDbParameter("@MultiEngine", "MultiEngine"))
cmdInsert.Parameters.Add(New OleDbParameter("@Export", "Export"))
da.InsertCommand = cmdInsert
End Sub