Inserting Date into Oracle Using Vb.net
I am facing Problem to Insert Date into Oracle Table Using Vb.net 
I am getting error "String was not recognized as a valid DateTime." I want to knwo exact parameters to insert into oracle
Please Help me To Do this
My code is Bellow to Insert


    Protected Sub btnInsert_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnInsert.Click
            For Each gvRow As GridViewRow In GridView1.Rows
                'Create Controls
                Dim txtCardNo As TextBox = CType(gvRow.FindControl("txtCardNo"), TextBox)
                Dim ddlZone As DropDownList = CType(gvRow.FindControl("ddlZone"), DropDownList)
                Dim ddlVeh As DropDownList = CType(gvRow.FindControl("ddlVeh"), DropDownList)
                'Start declarations
                Dim ddlStartDate As DropDownList = CType(gvRow.FindControl("ddlStartDate"), DropDownList)
                Dim ddlStartHH As DropDownList = CType(gvRow.FindControl("ddlStartHH"), DropDownList)
                Dim ddlStartMM As DropDownList = CType(gvRow.FindControl("ddlStartMM"), DropDownList)
                'Entry Declaration
                Dim ddlEntryDate As DropDownList = CType(gvRow.FindControl("ddlEntryDate"), DropDownList)
                Dim ddlEntryHH As DropDownList = CType(gvRow.FindControl("ddlEntryHH"), DropDownList)
                Dim ddlEntryMM As DropDownList = CType(gvRow.FindControl("ddlEntryMM"), DropDownList)
                'Gross Declarations
                Dim ddlGrossdate As DropDownList = CType(gvRow.FindControl("ddlGrossdate"), DropDownList)
                Dim ddlGrossHH As DropDownList = CType(gvRow.FindControl("ddlGrossHH"), DropDownList)
                Dim ddlGrossMM As DropDownList = CType(gvRow.FindControl("ddlGrossMM"), DropDownList)
                'gross and Tare Wt
                Dim txtGrossWt As TextBox = CType(gvRow.FindControl("txtGrossWt"), TextBox)
                Dim txtTareWt As TextBox = CType(gvRow.FindControl("txtTareWt"), TextBox)
                'Tare Date declareations
                Dim ddlTareDate As DropDownList = CType(gvRow.FindControl("ddlTareDate"), DropDownList)
                Dim ddlTareHH As DropDownList = CType(gvRow.FindControl("ddlTareHH"), DropDownList)
                Dim ddlTareMM As DropDownList = CType(gvRow.FindControl("ddlTareMM"), DropDownList)
                'NetWt
                Dim lblNetWt As Label = CType(gvRow.FindControl("lblNetWt"), Label)
                'Quality Declarearions
                Dim txtFat As TextBox = CType(gvRow.FindControl("txtFat"), TextBox)
                Dim txtLR As TextBox = CType(gvRow.FindControl("txtLR"), TextBox)
                Dim txtSNF As TextBox = CType(gvRow.FindControl("txtSNF"), TextBox)
                Dim txtCheese As TextBox = CType(gvRow.FindControl("txtCheese"), TextBox)
                Dim txtDistance As TextBox = CType(gvRow.FindControl("txtDistance"), TextBox)
                'Create Connection
                Dim con = New OleDbConnection("Data Source=sml2; User ID=sfpl; Password=a; provider=OraOLEDB.Oracle")
                'Dim con As SqlConnection = New SqlConnection(ConfigurationManager.ConnectionStrings("DatabaseConnectionString2").ConnectionString)
                Dim cmd As OleDbCommand = New OleDbCommand("Insert into Temp (Card_No,Zone_No,VEh_cod,START_DTE,ARRIVAL_DTE,GROSS_WEIGHT,GROSS_WEIGHT_DATE,TARE_WEIGHT,TARE_WEIGHT_DATE,Q_FAT,Q_LR,Q_SNF,Q_CHES,DISTANCE) VALUES (:Card_No,:ZONE_NO,:VEH_COD,:START_DTE,:ARRIVAL_DTE,:GROSS_WEIGHT,:GROSS_WEIGHT_DATE,:TARE_WEIGHT,:TARE_WEIGHT_DATE,:Q_FAT,:Q_LR,:Q_SNF,:Q_CHES,:DISTANCE)", con)
                cmd.Parameters.Clear()
                cmd.Parameters.AddWithValue(":Card_No", txtCardNo.Text)
                cmd.Parameters.AddWithValue(":Zone_No", ddlZone.SelectedValue)
                cmd.Parameters.AddWithValue(":VEh_cod", ddlVeh.SelectedValue)
                ' Starting Date
                cmd.Parameters.Add(":START_DTE", (OleDb.OleDbType.[Date]))
                cmd.Parameters(":START_DTE").Value = DateTime.Now()
                cmd.Parameters(":START_DTE").Value = ddlStartDate.SelectedValue '& " " & ddlStartHH.SelectedValue & ":" & ddlStartMM.SelectedValue & ":00"
                'cmd.Parameters.AddWithValue(":START_DTE", ddlStartDate.SelectedValue)
                'Entry Date
                cmd.Parameters.Add(":ENTRY_DATE", (OleDb.OleDbType.[Date]))
                cmd.Parameters(":ENTRY_DATE").Value = DateTime.Now()
                cmd.Parameters(":ENTRY_DATE").Value = ddlEntryDate.SelectedValue '& " " & ddlEntryHH.SelectedValue & ":" & ddlEntryMM.SelectedValue & ":00"
                'cmd.Parameters.AddWithValue(":ARRIVAL_DTE", ddlEntryDate.SelectedValue)
                'Gross Wt
                cmd.Parameters.Add(":GROSS_WEIGHT_DATE", (OleDb.OleDbType.[Date]))
                cmd.Parameters(":GROSS_WEIGHT_DATE").Value = DateTime.Now()
                cmd.Parameters(":GROSS_WEIGHT_DATE").Value = ddlGrossdate.SelectedValue ' & " " & ddlGrossHH.SelectedValue & ":" & ddlGrossMM.SelectedValue & ":00"
                'cmd.Parameters.AddWithValue(":GROSS_WEIGHT_DATE", ddlGrossdate.SelectedValue)
                'Gross and Tare Wt
                cmd.Parameters.AddWithValue("GROSS_WEIGHT", txtGrossWt.Text)
                cmd.Parameters.AddWithValue("TARE_WEIGHT", txtTareWt.Text)
    
                'Tare Wt
                cmd.Parameters.Add(":TARE_WEIGHT_DATE", (OleDb.OleDbType.[Date]))
                cmd.Parameters(":TARE_WEIGHT_DATE").Value = DateTime.Now()
                cmd.Parameters(":TARE_WEIGHT_DATE").Value = ddlTareDate.SelectedValue '& " " & ddlTareHH.SelectedValue & ":" & ddlTareMM.SelectedValue & ":00"
                'cmd.Parameters.AddWithValue(":TARE_WEIGHT_DATE", ddlTareDate.SelectedValue)
                'Net Wt
    
                'Quality
                cmd.Parameters.AddWithValue("Q_FAT", txtFat.Text)
                cmd.Parameters.AddWithValue("Q_LR", txtLR.Text)
                cmd.Parameters.AddWithValue("Q_SNF", txtSNF.Text)
                cmd.Parameters.AddWithValue("Q_CHES", txtCheese.Text)
                'Distance
                cmd.Parameters.AddWithValue("DISTANCE", txtDistance.Text)
    
                con.Open()
                cmd.ExecuteNonQuery()
                con.Close()
                Label1.Text = "All Records are Saved Successfully"
                btnSubmit.Text = "Clear Form for New Entry"
                Button1.Visible = True
                btnSubmit.Focus()
                btnInsert.Visible = True
                btnInsert.Enabled = False
    
            Next
    
        End Sub


Inserting Date into Oracle Using Vb.net
===

I am facing Problem to Insert Date into Oracle Table Using Vb.net 
I am getting error "String was not recognized as a valid DateTime." I want to knwo exact parameters to insert into oracle
Please Help me To Do this
My code is Bellow to Insert


    Protected Sub btnInsert_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnInsert.Click
            For Each gvRow As GridViewRow In GridView1.Rows
                'Create Controls
                Dim txtCardNo As TextBox = CType(gvRow.FindControl("txtCardNo"), TextBox)
                Dim ddlZone As DropDownList = CType(gvRow.FindControl("ddlZone"), DropDownList)
                Dim ddlVeh As DropDownList = CType(gvRow.FindControl("ddlVeh"), DropDownList)
                'Start declarations
                Dim ddlStartDate As DropDownList = CType(gvRow.FindControl("ddlStartDate"), DropDownList)
                Dim ddlStartHH As DropDownList = CType(gvRow.FindControl("ddlStartHH"), DropDownList)
                Dim ddlStartMM As DropDownList = CType(gvRow.FindControl("ddlStartMM"), DropDownList)
                'Entry Declaration
                Dim ddlEntryDate As DropDownList = CType(gvRow.FindControl("ddlEntryDate"), DropDownList)
                Dim ddlEntryHH As DropDownList = CType(gvRow.FindControl("ddlEntryHH"), DropDownList)
                Dim ddlEntryMM As DropDownList = CType(gvRow.FindControl("ddlEntryMM"), DropDownList)
                'Gross Declarations
                Dim ddlGrossdate As DropDownList = CType(gvRow.FindControl("ddlGrossdate"), DropDownList)
                Dim ddlGrossHH As DropDownList = CType(gvRow.FindControl("ddlGrossHH"), DropDownList)
                Dim ddlGrossMM As DropDownList = CType(gvRow.FindControl("ddlGrossMM"), DropDownList)
                'gross and Tare Wt
                Dim txtGrossWt As TextBox = CType(gvRow.FindControl("txtGrossWt"), TextBox)
                Dim txtTareWt As TextBox = CType(gvRow.FindControl("txtTareWt"), TextBox)
                'Tare Date declareations
                Dim ddlTareDate As DropDownList = CType(gvRow.FindControl("ddlTareDate"), DropDownList)
                Dim ddlTareHH As DropDownList = CType(gvRow.FindControl("ddlTareHH"), DropDownList)
                Dim ddlTareMM As DropDownList = CType(gvRow.FindControl("ddlTareMM"), DropDownList)
                'NetWt
                Dim lblNetWt As Label = CType(gvRow.FindControl("lblNetWt"), Label)
                'Quality Declarearions
                Dim txtFat As TextBox = CType(gvRow.FindControl("txtFat"), TextBox)
                Dim txtLR As TextBox = CType(gvRow.FindControl("txtLR"), TextBox)
                Dim txtSNF As TextBox = CType(gvRow.FindControl("txtSNF"), TextBox)
                Dim txtCheese As TextBox = CType(gvRow.FindControl("txtCheese"), TextBox)
                Dim txtDistance As TextBox = CType(gvRow.FindControl("txtDistance"), TextBox)
                'Create Connection
                Dim con = New OleDbConnection("Data Source=sml2; User ID=sfpl; Password=a; provider=OraOLEDB.Oracle")
                'Dim con As SqlConnection = New SqlConnection(ConfigurationManager.ConnectionStrings("DatabaseConnectionString2").ConnectionString)
                Dim cmd As OleDbCommand = New OleDbCommand("Insert into Temp (Card_No,Zone_No,VEh_cod,START_DTE,ARRIVAL_DTE,GROSS_WEIGHT,GROSS_WEIGHT_DATE,TARE_WEIGHT,TARE_WEIGHT_DATE,Q_FAT,Q_LR,Q_SNF,Q_CHES,DISTANCE) VALUES (:Card_No,:ZONE_NO,:VEH_COD,:START_DTE,:ARRIVAL_DTE,:GROSS_WEIGHT,:GROSS_WEIGHT_DATE,:TARE_WEIGHT,:TARE_WEIGHT_DATE,:Q_FAT,:Q_LR,:Q_SNF,:Q_CHES,:DISTANCE)", con)
                cmd.Parameters.Clear()
                cmd.Parameters.AddWithValue(":Card_No", txtCardNo.Text)
                cmd.Parameters.AddWithValue(":Zone_No", ddlZone.SelectedValue)
                cmd.Parameters.AddWithValue(":VEh_cod", ddlVeh.SelectedValue)
                ' Starting Date
                cmd.Parameters.Add(":START_DTE", (OleDb.OleDbType.[Date]))
                cmd.Parameters(":START_DTE").Value = DateTime.Now()
                cmd.Parameters(":START_DTE").Value = ddlStartDate.SelectedValue '& " " & ddlStartHH.SelectedValue & ":" & ddlStartMM.SelectedValue & ":00"
                'cmd.Parameters.AddWithValue(":START_DTE", ddlStartDate.SelectedValue)
                'Entry Date
                cmd.Parameters.Add(":ENTRY_DATE", (OleDb.OleDbType.[Date]))
                cmd.Parameters(":ENTRY_DATE").Value = DateTime.Now()
                cmd.Parameters(":ENTRY_DATE").Value = ddlEntryDate.SelectedValue '& " " & ddlEntryHH.SelectedValue & ":" & ddlEntryMM.SelectedValue & ":00"
                'cmd.Parameters.AddWithValue(":ARRIVAL_DTE", ddlEntryDate.SelectedValue)
                'Gross Wt
                cmd.Parameters.Add(":GROSS_WEIGHT_DATE", (OleDb.OleDbType.[Date]))
                cmd.Parameters(":GROSS_WEIGHT_DATE").Value = DateTime.Now()
                cmd.Parameters(":GROSS_WEIGHT_DATE").Value = ddlGrossdate.SelectedValue ' & " " & ddlGrossHH.SelectedValue & ":" & ddlGrossMM.SelectedValue & ":00"
                'cmd.Parameters.AddWithValue(":GROSS_WEIGHT_DATE", ddlGrossdate.SelectedValue)
                'Gross and Tare Wt
                cmd.Parameters.AddWithValue("GROSS_WEIGHT", txtGrossWt.Text)
                cmd.Parameters.AddWithValue("TARE_WEIGHT", txtTareWt.Text)
    
                'Tare Wt
                cmd.Parameters.Add(":TARE_WEIGHT_DATE", (OleDb.OleDbType.[Date]))
                cmd.Parameters(":TARE_WEIGHT_DATE").Value = DateTime.Now()
                cmd.Parameters(":TARE_WEIGHT_DATE").Value = ddlTareDate.SelectedValue '& " " & ddlTareHH.SelectedValue & ":" & ddlTareMM.SelectedValue & ":00"
                'cmd.Parameters.AddWithValue(":TARE_WEIGHT_DATE", ddlTareDate.SelectedValue)
                'Net Wt
    
                'Quality
                cmd.Parameters.AddWithValue("Q_FAT", txtFat.Text)
                cmd.Parameters.AddWithValue("Q_LR", txtLR.Text)
                cmd.Parameters.AddWithValue("Q_SNF", txtSNF.Text)
                cmd.Parameters.AddWithValue("Q_CHES", txtCheese.Text)
                'Distance
                cmd.Parameters.AddWithValue("DISTANCE", txtDistance.Text)
    
                con.Open()
                cmd.ExecuteNonQuery()
                con.Close()
                Label1.Text = "All Records are Saved Successfully"
                btnSubmit.Text = "Clear Form for New Entry"
                Button1.Visible = True
                btnSubmit.Focus()
                btnInsert.Visible = True
                btnInsert.Enabled = False
    
            Next
    
        End Sub

