มันติดตรง .ExecuteNonQuery() อ่ะแต่ชื่อตารางตรง Access ก็ตรงแต่ยังติดอยู่ช่วยหน่อยนะคับ

Private Sub Delete()
Dim sqlDelete As String
Dim comAdd As New OleDbCommand
If MessageBox.Show("ต้องการลบข้อมูล", "ยืนยันการลบ",
MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = Windows.Forms.DialogResult.Yes Then
sqlDelete = "Delete From Product "
sqlDelete &= " WHERE (ProductID=" & CInt(TextBox1.Text) & ")"
With comAdd
.CommandType = CommandType.Text
.CommandText = sqlDelete
.Connection = Conn
.ExecuteNonQuery()
End With
ShowData()
End If
End Sub