[abdala]

الحمد للة انا استخدمت كود وعمل تمام

Private Sub btn_dlet_maix_Click()
If rs.State = 1 Then rs.Close
Dim rs4 As New ADODB.Command
rs4.ActiveConnection = conn1
rs4.CommandText = "Delete * from com_maxi where name_max =" + "'" + Text1.Text + "'"
rs4.Execute

If rs3.Status = 1 Then rs3.Close

rs3.Open "select * from com_maxi where name_max", db1, 1, 2
Do While Not rs3.EOF
list_dlet_max.AddItem rs3("name_max")
rs3.MoveNext
Loop


ولكن كيفية تحديث قاعدة البيانات فى اليست بوكس

شكرا