VB ช่วยดูทีค่ะ มันขึ้น Error ตรง .ExecuteNonQuery()

 Private Sub tsSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsSave.Click
        If eID.Text = "" Or
           eName.Text = "" Or
           eAdd.Text = "" Or
           eTel.Text = "" Then
            MessageBox.Show("กรอกข้อมูลให้ครบถ้วนและถูกต้อง", "กรุณาตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit Sub
        End If
        If MessageBox.Show("บันทึกข้อมูล?", "ยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            Select Case ClickButton
                Case "Add"
                    sb = New StringBuilder
                    sb.Append(" INSERT INTO Employee (eID, eName, eAdd, eTel)")
                    sb.Append("  VALUES (@eID, @eName, @eAdd, @eTel)")
                Case "Edit"
                    sb = New StringBuilder
                    sb.Append("UPDATE Employee")
                    sb.Append("  SET eName = '" & eName.Text & "',")
                    sb.Append("  eAdd = '" & eAdd.Text & "',")
                    sb.Append("  eTel = '" & eTel.Text & "',")
                    sb.Append("  WHERE eID = '" & eID.Text & "")
            End Select
            sql = sb.ToString
            command = New OleDbCommand
            With command
                .CommandType = CommandType.Text
                .CommandText = sql
                .Connection = conn
                .Parameters.Clear()
                .Parameters.Add("@eID", OleDbType.VarChar).Value = eID.Text.Trim
                .Parameters.Add("@eName", OleDbType.VarChar).Value = eName.Text.Trim
                .Parameters.Add("@eAdd", OleDbType.VarChar).Value = eAdd.Text.Trim
                .Parameters.Add("@eTel", OleDbType.VarChar).Value = eTel.Text.Trim
                .ExecuteNonQuery()
            End With
            MessageBox.Show("บันทึกข้อมูลเรียบร้อยแร้ว")
            showdata()
            formatEmployee()
            LockButton2()
            ClearallData()
            eName.ReadOnly = True
        End If
    End Sub