Hi All... I am going a little crazy with this today. Cannot seem to get my 'Edit' code to work for updating my Access DB file. I get "No given value for one or more parameters" error when attempting to update. My 'Save' code works just fine and I am using DataGridView to see each record. All items load to my textboxes fine, but when trying to change something and update, I cannot get beyond that without errors. I have stared at it forever trying to determine if there is a type-O. Here is my 'Save' & 'Edit'

Code:
Sub save()

        Try

            If MsgBox("Are You Sure Insert This Record", vbQuestion + vbYesNo) = vbYes Then
                conn.Open()
                Dim cmd As New OleDb.OleDbCommand("Insert into HAZREC(`Channel`,`Status`,`Identified_Hazard`,`Regulatory_Standard_Reference`,`Primary`,`Location`,`Date_Reported`
                                                   ,`Planned_Completion`,`Date_Completed`,`Owner`,`Assisting`,`Action_Taken`,`Age`,`Comments`) values(@Channel,@Status,@Identified_Hazard,
                                                   @Regulatory_Standard_Reference,@Primary,@Location,@Date_Reported,@Planned_Completion,@Date_Completed,@Owner,@Assisting,@Action_Taken,@Age,@Comments)", conn)
                cmd.Parameters.Clear()
                cmd.Parameters.AddWithValue("@Channel", txt_Channel.Text)
                cmd.Parameters.AddWithValue("@Status", txt_Status.Text)
                cmd.Parameters.AddWithValue("@Identified_Hazard", txt_IdentHaz.Text)
                cmd.Parameters.AddWithValue("@Regulatory_Standard_Reference", txt_RegStdRef.Text)
                cmd.Parameters.AddWithValue("@Primary", txt_Primary.Text)
                cmd.Parameters.AddWithValue("@Location", txt_Location.Text)
                cmd.Parameters.AddWithValue("@Date_Reported", txt_DateReport.Text)
                cmd.Parameters.AddWithValue("@Planned_Completion", txt_PLComplete.Text)
                cmd.Parameters.AddWithValue("@Date_Completed", txt_DateComplete.Text)
                cmd.Parameters.AddWithValue("@Owner", txt_Owner.Text)
                cmd.Parameters.AddWithValue("@Assisting", txt_Assist.Text)
                cmd.Parameters.AddWithValue("@Action_Taken", txt_Action.Text)
                cmd.Parameters.AddWithValue("@Age", txt_Age.Text)
                cmd.Parameters.AddWithValue("@Comments", txt_Comments.Text)

                i = cmd.ExecuteNonQuery
                If i > 0 Then
                    MsgBox("Record Saved!", vbInformation)
                Else
                    MsgBox("Record Failed to Save!", vbCritical)
                End If
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        conn.Close()
        loadingDatagridView()
        clear()
End Sub


Sub edit()

        Try
            conn.Open()
            Dim cmd As New OleDb.OleDbCommand("UPDATE HAZREC Set `Channel`=@Channel,`Status`=@Status,`Identified_Hazard`=@Identified_Hazard,`Regulatory_Standard_Reference`=@Regulatory_Standard_Reference,
                                              `Primary`=@Primary,`Location`=@Location,`Date_Reported`=@Date_Reported,`Planned_Completion`=@Planned_Completion,`Date_Completed`=@Date_Completed,
                                              `Owner`=@Owner,`Assisting`=@Assisting,`Action_Taken`=@Action_Taken,`Age`=@Age,`Comments`=@Comments Where ID=@ID", conn)
            cmd.Parameters.Clear()
            cmd.Parameters.AddWithValue("@Channel", txt_Channel.Text)
            cmd.Parameters.AddWithValue("@Status", txt_Status.Text)
            cmd.Parameters.AddWithValue("@Identified_Hazard", txt_IdentHaz.Text)
            cmd.Parameters.AddWithValue("@Regulatory_Standard_Reference", txt_RegStdRef.Text)
            cmd.Parameters.AddWithValue("@Primary", txt_Primary.Text)
            cmd.Parameters.AddWithValue("@Location", txt_Location.Text)
            cmd.Parameters.AddWithValue("@Date_Reported", txt_DateReport.Text)
            cmd.Parameters.AddWithValue("@Planned_Completion", txt_PLComplete.Text)
            cmd.Parameters.AddWithValue("@Date_Completed", txt_DateComplete.Text)
            cmd.Parameters.AddWithValue("@Owner", txt_Owner.Text)
            cmd.Parameters.AddWithValue("@Assisting", txt_Assist.Text)
            cmd.Parameters.AddWithValue("@Action_Taken", txt_Action.Text)
            cmd.Parameters.AddWithValue("@Age", txt_Age.Text)
            cmd.Parameters.AddWithValue("@Comments", txt_Comments.Text)

            i = cmd.ExecuteNonQuery
            If i > 0 Then
                MsgBox("Record Update Success !", vbInformation)
            Else
                MsgBox("Failed", vbCritical)
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        conn.Close()
        loadingDatagridView()
        clear()
End Sub