Untitled

Inserting a Value from DateTime Picker causing errors

Private Sub AcceptBtn_Click(sender As System.Object, e As System.EventArgs) Handles AcceptBtn.Click

 

            Dim InsertTournamentQuery As String = "INSERT INTO Tournaments (SanctioningID, TournamentName, TournamentVenue, Game, Format, OrganizerID, PairingSystem, TournamentDateTime) VALUES (?,?,?,?,?,?,?,?)"

            Dim LastRowSelect As String = "SELECT @@IDENTITY"

            Dim LastRowID As Integer

            Dim DBconnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|Master.mdb"

 

            Using connection As New OleDb.OleDbConnection(DBconnection)

                Using cmd As New OleDb.OleDbCommand(InsertTournamentQuery, connection)

                    cmd.Parameters.AddWithValue("?", SanctionID)

                    cmd.Parameters.AddWithValue("?", Trim(TrnNameTxt.Text))

                    cmd.Parameters.AddWithValue("?", Int(TrnVenueLst.SelectedValue))

                    cmd.Parameters.AddWithValue("?", GameLst.SelectedValue)

                    cmd.Parameters.AddWithValue("?", Convert.ToInt32(FormatLst.SelectedValue))

                    cmd.Parameters.AddWithValue("?", OrganizerID)

                    cmd.Parameters.AddWithValue("?", Convert.ToInt32(PairingLst.SelectedValue))

                    cmd.Parameters.AddWithValue("?", TrnDate.Value)

 

                    connection.Open()

                    cmd.ExecuteNonQuery()

                    cmd.CommandText = LastRowSelect

                    LastRowID = cmd.ExecuteScalar()

                    connection.Close()

                End Using

End Sub

       

cmd.Parameters.AddWithValue("?", Convert.ToDateTime(TrnDate.Value.ToString))

       

Debug.Print "INSERT INTO Tournaments (SanctioningID, TournamentName, TournamentVenue, Game, Format, OrganizerID, PairingSystem, TournamentDateTime) VALUES (" _

        & SanctionID & ",'" & Trim(TrnNameTxt.Text) & "'," & Int(TrnVenueLst.SelectedValue) & ",'" & GameLst.SelectedValue & "'," & Convert.ToInt32(FormatLst.SelectedValue) _

        & "," & OrganizerID & "," & Convert.ToInt32(PairingLst.SelectedValue) & "," & TrnDate.Value & ")"