bindingnavigator กับการ Delete ทำไมมันตอบ No แต่ยังทำงาน รบกวนช่วยดูให้หน่อย

Try
With conn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = strconn
.Open()
End With
If MessageBox.Show("คุณต้องการลบ รหัสพนักงาน " & txtEmpId.Text + " ชื่อ " & txtName.Text + " ใช่หรือไม่ ", "ยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
Dim delemp As String = "delete from employee where autoid=" & txtEmpNo.Text & ""
cmd = New OleDbCommand(delemp, conn)
cmd.ExecuteNonQuery()
bn.BindingSource = Nothing
bn.BindingSource = bs
Else
Exit Sub
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try