数据类型提交错误

我的vb.net代码有这个巨大的问题。一切似乎都很好，我不能弄清楚问题出在哪里。我想向Access数据库提交一条记录，但每次都会遇到此数据类型不匹配错误。我的访问数据库是该字段的所有文本。数据类型为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()