Execute NonQuery Error

 I have created an app that requires a registration, but when I run the app I get the following error from the Registration page.  Can someone please help?  Thanks in advance.

 String was not recognized as a valid DateTime.

Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details: System.FormatException: String was not recognized as a valid DateTime.

Source Error:





Line 58: cmdCommandIns.Parameters.Add("@zipCode", SqlDbType.Int).Value = txbzipCode.Text
Line 59: cmdCommandIns.Parameters.Add("@email", SqlDbType.VarChar, 80).Value = txbemail.Text
Line 60: cmdCommandIns.ExecuteNonQuery()
Line 61: cnnConnection.Close()
Line 62:  Private Sub Page_Load()

lblDateStamp.Text = Date.Now

End Sub

'Create Global SQLConnection, Insert SQLCommand ObjectsDim Ds As DataSet

Dim connString1 As String = ConfigurationSettings.AppSettings("connString1") 'iscorp/eVisitsDim cnnConnection As New System.Data.SqlClient.SqlConnection(connString1)

Dim cmdCommandIns As New System.Data.SqlClient.SqlCommand("Insert INTO personID (firstName,lastName,middleInitial,dateOfBirth,genderCode,subscriberNumber) Values (@firstName,@lastName,@middleInitial,@dateOfBirth,@genderCode,@subscriberNumber)", cnnConnection)Dim cmdCommandIns1 As New System.Data.SqlClient.SqlCommand("Insert INTO registrationID (personID,addressID,email) Values (@personID,@addressID,@email)", cnnConnection)

Dim cmdCommandSelect As New System.Data.SqlClient.SqlDataAdapter("Select person,registration From LakeShore WHERE person=@person AND registration=@registration", cnnConnection)Protected Sub btnReg_OnClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReg.Click

'Open a connection to the "iscorp" Database

cnnConnection.Open()

'Insert Content into personID tablecmdCommandIns.Parameters.Add("@firstName", SqlDbType.VarChar, 40).Value = txbfirstName.Text

cmdCommandIns.Parameters.Add("@lastName", SqlDbType.VarChar, 40).Value = txblastName.TextcmdCommandIns.Parameters.Add("@middleInitial", SqlDbType.Char, 1).Value = txbmiddleInitial.Text

cmdCommandIns.Parameters.Add("@dateOfBirth", SqlDbType.DateTime).Value = txbdateOfBirth.TextcmdCommandIns.Parameters.Add("@genderCode", SqlDbType.Char, 10).Value = ddlgenderCode.SelectedValue

cmdCommandIns.Parameters.Add("@phoneNumber", SqlDbType.VarChar, 20).Value = txbphoneNumber.TextcmdCommandIns.Parameters.Add("@workPhone", SqlDbType.VarChar, 50).Value = txbworkPhone.Text

cmdCommandIns.Parameters.Add("@addressLine1", SqlDbType.VarChar, 40).Value = txbaddressLine1.TextcmdCommandIns.Parameters.Add("@addressLine2", SqlDbType.VarChar, 40).Value = txbaddressLine2.Text

cmdCommandIns.Parameters.Add("@City", SqlDbType.VarChar, 30).Value = txbCity.TextcmdCommandIns.Parameters.Add("@State", SqlDbType.Char, 2).Value = txbState.Text

cmdCommandIns.Parameters.Add("@zipCode", SqlDbType.Int).Value = txbzipCode.TextcmdCommandIns.Parameters.Add("@email", SqlDbType.VarChar, 80).Value = txbemail.Text

cmdCommandIns.ExecuteNonQuery()

cnnConnection.Close()Response.Redirect("http://www.lmcevisits.com/dev/Contact.aspx")

End Sub

End Class