No value given for one or more required parameters ช่วยผมทีครับ ทำไมผม ลบข้อมูล และ แก้ไขข้อมูลใน Acc2007 ไม่ได้

Imports System.Data
Imports System.Data.OleDb

Public Class FormCustomers
    Private _dataset As DataSet
    Private _conn As OleDbConnection
    Private _cmd As OleDbCommand
    Private _rowCount As Integer = 0
    Private _position As Integer = 0

ในฐานข้อมูลกำหนดดังนี้ครับ 
Table name > Customers
Field    >  CustomerID : ATnumber, CustomerName : Text , CustomerAddress : Text

Code ตรงปุ่มนะครับ 

Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
        If (TbxName.Text = "" Or TbxAdrs.Text = "") Then
            MsgBox(" กรุณาใส่ข้อมูลให้ครบ ")
            Return
        End If
        Dim sql As String = ""
        If (TbxID.Text = "") Then
            sql = "INSERT INTO Customers("
            sql &= "CustomerName, CustomerAddress)"
            sql &= "VALUES(@nm, @adrs)"
        Else
            sql = "UPDATE Customers SET"
            sql &= "CustomerName = @nm, CustomerAddress = @adrs "
            sql &= "WHERE CustomerID = " & TbxID.Text
        End If

        _cmd = New OleDbCommand(sql, _conn)

        _cmd.Parameters.AddWithValue("nm", TbxName.Text)
        _cmd.Parameters.AddWithValue("adrs", TbxAdrs.Text)

        Dim affectedRow As Integer = _cmd.ExecuteNonQuery()
        If (affectedRow < 1) Then
            ToolStripStatusLabel1.Text = "เกิดข้อผิดพลาดในการบันทึกข้อมูล !"
        Else
            ToolStripStatusLabel1.Text = "ข้อมูลถูกจัดเก็บแล้ว"

            Dim name As String = TbxName.Text

            ' อ่านข้อมูลเข้ามาใหม่
            ReadData()
            FillListBox()
            ClearBindings()
            ' ถ้าอยู่ที่ตำแหน่ง แท็บแสดงข้อมูลให้ Binding ใหม่
            If (TabControl1.SelectedIndex = 0) Then
                Bindings()
            End If
            ' ให้ทำ ไฮไลท์ ที่ ListBox รายการที่เพิ่มหรือแก้ไขใหม่
            Dim idx As Integer = ListBox1.FindStringExact(name)
            If (idx > -1) Then
                ListBox1.SetSelected(idx, True)
            End If
            UpdateStatus()
        End If
    End Sub

'-----------------------------------------------------------------------------------------------
Private Sub BtnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDelete.Click
        If (TbxID.Text = "") Then
            Return
        End If
        If (MsgBox("คุณต้องการลบข้อมูลใช่หรือไม่ ?", MsgBoxStyle.OkCancel) = _
            MsgBoxResult.Cancel) Then
            Return
        End If

        Dim sql As String
        sql = " DELETE * FROM Orders "
        sql &= "WHERE CustomerName = @cust"
        _cmd = New OleDbCommand(sql, _conn)

        Dim r As Integer = _cmd.ExecuteNonQuery()

        If (r > 0) Then
            ToolStripStatusLabel1.Text = "ลบข้อมูลสำเร็จ"
        End If

        Dim idx0 As Integer = ListBox1.SelectedIndex
        ClearBindings()
        ReadData()
        FillListBox()
        Bindings()
        If (idx0 > 0) Then
            ListBox1.SetSelected(idx0 - 1, True)
        End If
        ' ลบข้อมูลการสั่งซื้อในตาราง Orders
        sql = "DELETE * FROM Orders WHERE CustomerName = @cust"
        _cmd = New OleDbCommand(sql, _conn)
        _cmd.Parameters.AddWithValue("cust", TbxName.Text)
        _cmd.ExecuteNonQuery()

    End Sub
End Class