data type mismatch - OleDb

[CGreenMTU]

I'm having problems with inserting records to a Microsoft Access database. I get a 'data type mismatch in criteria expression' error. Some of my fields are date/time, 1 is a number data type, and the rest are all text. how do i distinquish these in my expressions???

thanks in advance...

here is my code:
Private Sub lnkSaveClaim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkSaveClaim.Click
Dim OleDbString As String = "INSERT INTO TblMasterClaimsRecord ([Account Name], Division, TrailorType, INSCompany, Policy_ID, [Policy Number], [Claim Number], [Type of Loss], [Insurance Claim Number], [Claim Status], [Date Closed], Reopen, ReClosed, [Report Date], [Date of Loss], [Time of Loss], [City of Loss], [State of Loss], [Location Code], Tractor, Trailer1, VIN, Unladen, TPA, Subrogation, [Last Name], [First Name], MI, [License Number], [License State], [Driver Hire Date]) VALUES (@AccountName, @Division, @TrailorType, @INSCompany, @Policy_ID, @PolicyNumber, @ClaimNumber, @TypeofLoss, @InsuranceClaimNumber, @ClaimStatus, @DateClosed, @Reopen, @ReClosed, @ReportDate, @DateofLoss, @TimeofLoss, @CityofLoss, @StateofLoss, @LocationCode, @Tractor, @Trailer1, @VIN, @Unladen, @TPA, @Subrogation, @LastName, @FirstName, @MI, @LicenseNumber, @LicenseState, @DriverHireDate)"

Dim cmdNewClaim As New OleDb.OleDbCommand(OleDbString, cnNewClaim)

cmdNewClaim.Parameters.Add("@AccountName", ddlInsured.SelectedItem.Text)
cmdNewClaim.Parameters.Add("@Division", ddlDivisions.SelectedItem.Text)
cmdNewClaim.Parameters.Add("@TrailorType", ddlTrailorType.SelectedItem.Text)
cmdNewClaim.Parameters.Add("@INSCompany", txtInsCo.Text)
cmdNewClaim.Parameters.Add("@Policy_ID", txtPolicyID.Text)
cmdNewClaim.Parameters.Add("@PolicyNumber", txtPolicyNumber.Text)
cmdNewClaim.Parameters.Add("@ClaimNumber", txtClaimNUmber.Text)
cmdNewClaim.Parameters.Add("@TypeofLoss", ddlLossType.SelectedItem.Text)
cmdNewClaim.Parameters.Add("@InsuranceClaimNumber", txtInsClaimNumber.Text)
cmdNewClaim.Parameters.Add("@ClaimStatus", ddlStatus.SelectedItem.Text)
cmdNewClaim.Parameters.Add("@DateClosed", txtDateClosed.Text)
cmdNewClaim.Parameters.Add("@Reopen", txtReopened.Text)
cmdNewClaim.Parameters.Add("@ReClosed", txtReClosed.Text)
cmdNewClaim.Parameters.Add("@ReportDate", txtReportDate.Text)
cmdNewClaim.Parameters.Add("@DateofLoss", txtDateofLoss.Text)
cmdNewClaim.Parameters.Add("@TimeofLoss", txtTimeofLoss.Text)
cmdNewClaim.Parameters.Add("@CityofLoss", txtCityofLoss.Text)
cmdNewClaim.Parameters.Add("@StateofLoss", txtStofLoss.Text)
cmdNewClaim.Parameters.Add("@LocationCode", ddlLocationType.SelectedItem.Text)
cmdNewClaim.Parameters.Add("@Tractor", txtTractor.Text)
cmdNewClaim.Parameters.Add("@Trailer1", txtTrailor.Text)
cmdNewClaim.Parameters.Add("@VIN", txtVIN.Text)
cmdNewClaim.Parameters.Add("@Unladen", ckbUnladen.Checked)
cmdNewClaim.Parameters.Add("@TPA", ckbTPA.Checked)
cmdNewClaim.Parameters.Add("@Subrogation", ckbSubro.Checked)
cmdNewClaim.Parameters.Add("@LastName", txtLast.Text)
cmdNewClaim.Parameters.Add("@FirstName", txtFirst.Text)
cmdNewClaim.Parameters.Add("@MI", txtMiddle.Text)
cmdNewClaim.Parameters.Add("@LicenseNumber", txtLicNum.Text)
cmdNewClaim.Parameters.Add("@LicenseState", txtLicSt.Text)
cmdNewClaim.Parameters.Add("@DriverHireDate", txtStartDAte.Text)

cnNewClaim.Open()
cmdNewClaim.ExecuteNonQuery()
cnNewClaim.Close()

End Sub

 

[adonet]

search "Type Conversion Functions" in help. Most likely is date type.

 

[CGreenMTU]

could someone possibly show me an example?

 

[adonet]

cmdNewClaim.Parameters.Add("@DateClosed", cdate(txtDateClosed.Text))