[وائل القطاوي]

Try
Select Case MsgBox("هل تريد الحذف بالفعل لـ" &"" & TextBox1.Text & "" , vbInformation + vbMsgBoxRight + vbYesNo, "عزيزي المستخدم")
Case vbYes
Dim str As String = String.Format(" delete from users where id = {0} ", DataGridView1(0, DataGridView1.SelectedRows(0).Index).Value.ToString())
Dim cmd As New OleDbCommand(str, CONN)
CONN.Open()
cmd.ExecuteNonQuery()
CONN.Close()
MsgBox(" تم الحذف بنجاح ", vbMsgBoxRight + vbInformation,"عزيزي المستخدم")
dt.Clear()
da.Fill(dt)
DataGridView1.DataSource = dt
Case vbNo
End Select
Catch ex As Exception
MsgBox(" عذرا لم يتم الحذف يرجى اعادة المحاولة ", vbMsgBoxRight + vbDirectory,"عزيزي المستخدم")
CONN.Close()
End Try