Datatype Error in submission - vb.net

Question

I have this huge problem with my vb.net code. Everything seem fine and i cant quite figure out where the problem is. I want to submit a record to an Access database but i get this datatype mismatch error everytime. My access database is all text for the fields. except for the dates which have datatype DATE.
Try
'LGCodeHygNumb()
Dim statement As String
Dim cmd As OleDbCommand
Dim connect As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Persist Security Info=false; Data Source=..\ClosedIn11.mdb")
'If connect.State = ConnectionState.Closed Then
connect.Open()
'End If
statement = "INSERT INTO EnrolleeDets (ID, Surname, FirstName, Othername, ReceiptNumber, Birthdate, Gender, MaritalStatus, HomeAddress, Mobile, Telephone, State, StateCode, Local_Govt, GroupType, GroupName, Location, ElectiveType, Provider, PassportDirectory, Original_RegDate, New_RenewalDate, ExpiryDate, Status, OverallStatus) values ('" & lblnumb.Text & "', '" & txtSurnanme.Text & "', '" & txtFirstname.Text & "', '" & txtNickname.Text & "', '" & txtReceiptNo.Text & "', '" & DatePicker1.Text & "', '" & cmbGender.Text & "', '" & cmbMaritalStatus.Text & "', '" & txtHomeAddr.Text & "', '" & txtMobile.Text & "', '" & TextBox8.Text & "', '" & cmbState.Text & "', '" & cmbStateCode.Text & "', '" & cmbLGACode.Text & "', '" & cmbGroupType.Text & "', '" & cmbGroupName.Text & "', '" & cmbLocation.Text & "', '" & cmbElectiveType.Text & "', '" & cmbProvider.Text & "', '" & txtPassportDir.Text & "','" & txtPassportDir.Text & "', '" & txtPassportDir.Text & "', '" & txtPassportDir.Text & "', '" & txtPassportDir.Text & "', '" & txtPassportDir.Text & "')"
'MsgBox(statement)
cmd = New OleDbCommand(statement, connect)
cmd.ExecuteNonQuery()
'MsgBox(lblnumb.Text & " added under " & txtSurnanme.Text & " !", vbInformation)
Catch ex As Exception
MsgBox(ex.ToString)
End Try
'connect.Close()

Answer 1

In your statement:
statement = "INSERT INTO EnrolleeDets (ID, Surname, FirstName, Othername, ReceiptNumber, Birthdate, Gender, MaritalStatus, HomeAddress, Mobile, Telephone, State, StateCode, Local_Govt, GroupType, GroupName, Location, ElectiveType, Provider, PassportDirectory, Original_RegDate, New_RenewalDate, ExpiryDate, Status, OverallStatus) values ('" & lblnumb.Text & "', '" & txtSurnanme.Text & "', '" & txtFirstname.Text & "', '" & txtNickname.Text & "', '" & txtReceiptNo.Text & "', '" & DatePicker1.Text & "', '" & cmbGender.Text & "', '" & cmbMaritalStatus.Text & "', '" & txtHomeAddr.Text & "', '" & txtMobile.Text & "', '" & TextBox8.Text & "', '" & cmbState.Text & "', '" & cmbStateCode.Text & "', '" & cmbLGACode.Text & "', '" & cmbGroupType.Text & "', '" & cmbGroupName.Text & "', '" & cmbLocation.Text & "', '" & cmbElectiveType.Text & "', '" & cmbProvider.Text & "', '" & txtPassportDir.Text & "','" & txtPassportDir.Text & "', '" & txtPassportDir.Text & "', '" & txtPassportDir.Text & "', '" & txtPassportDir.Text & "', '" & txtPassportDir.Text & "')"
Your columns Original_RegDate, New_RenewalDate, ExpiryDate match up with '" & txtPassportDir.Text & "', '" & txtPassportDir.Text & "', '" & txtPassportDir.Text & "'
I would guess that txtPassportDir.Text does not contain a date.

Answer 2

You should create the command using OleDbParameters.
statement = "INSERT INTO EnrolleeDets (Surname, Birthdate, Status) values (#ID, #Birthdate, #Status);"
Make sure that the added values have correct data type:
cmd.Parameters.AddWithValue("#Surname", Me.TextBox1.Text) ' VarChar
cmd.Parameters.AddWithValue("#Birthdate", Date.Parse(Me.TextBox2.Text)) 'DateTime
cmd.Parameters.AddWithValue("#Status", Integer.Parse(Me.TextBox3.Text)) 'Int