مساعدة في الاستعلام وتعديل البرنامج

السلام عليكم ورحمة الله وبركاته

عملت برنامج مع قاعدة بيانات بالاكسس وينقصني بعض الاضافات ياليت اللي عنده خبره يساعدني

هذي واجهة البرنامج

السؤال الاول

ابي اغير خانة اسم الشركة واخليها لست بحيث يظهر لي الاسماء اللي في قاعدة البيانات بدال ماكل مره ادخل الاسم وكذالك خانة السيارات

والسؤال الثاني

ابي اسوي خانة يظهر لي فيها عدد السيارات في الشركه بمعنى اصح ناخذها من اسم الشركة كم مره تكرر واضيفها في خانة التكست

ارجو المساعده

وهذا كود البرنامج

Private Sub Command2_Click(Index As Integer)
Data1.Recordset.AddNew
End Sub

Private Sub Command3_Click(Index As Integer)
Data1.Refresh
End Sub

Private Sub Command4_Click(Index As Integer)
On Error GoTo data_error
If MsgBox("åá ÊÑíÏ ÍÐÝ ÇáÓÌá ÈÇáÊÃßíÏ¿", vbQuestion + vbYesNo, "ÊÃßíÏ ÍÐÝ") = vbYes Then

Data1.Recordset.Delete
Data1.Recordset.MoveNext
End If
Exit Sub
data_error:
MsgBox "áã íÈÞì ÓÌáÇÊ", vbCritical, "ÎØÃ"
End Sub


Private Sub Command6_Click(Index As Integer)
Select Case Combo1.ListIndex
Case 0
Data1.RecordSource = (" select * from dalel where Plate_No=" + "'" + Text11.Text + "'")
Data1.Refresh
Case 1
Data1.RecordSource = (" select * from dalel where Sticker_No=" + "'" + Text11.Text + "'")
Data1.Refresh
Case 2
Data1.RecordSource = (" select * from dalel where Name=" + "'" + Text11.Text + "'")
Data1.Refresh
Case 3
Data1.RecordSource = (" select * from dalel ")
Data1.Refresh
End Select
End Sub

Private Sub Exit_Cmd_Click()
End
End Sub

Private Sub Form_Load()
Combo1.AddItem "áæÍÉÇáÓíÇÑÉ"
Combo1.AddItem "ÑÞã ÇáÊÕÑíÍ"
Combo1.AddItem "ÇÓã ÇáÔÑßÉ"
Combo1.AddItem "ßá ÇáÔÑßÇÊ"
On Error GoTo data_error
Data1.DatabaseName = App.Path & "\tell.mdb"
Data1.Refresh
Data1.Recordset.AddNew
Exit Sub
data_error:
MsgBox "áã íÊã ÇáÚËæÑ Úáì ÞÇÚÏÉ ÇáÈíÇäÇÊ", vbCritical, "ÎØÃ"
End Sub