הנה הרעיון
בני טופס הוסיפי Text1 - שם + נתיב ה DB list1 Command1 Label1 - העתיקי כמספר הרשומות של הטבלה, העתקת Array (כולם Label1 עם Index) הוסיפי את קטע הקוד: `------------------------------------------------- `Declaration `------------------------------------------------- Private cn As ADODB.Connection Private rs As ADODB.Recordset Private Sub Command1_Click() Dim ConStr As String `------------------------------------------------- `Establish connection `------------------------------------------------- ConStr = ``Provider=Microsoft.Jet.OLEDB.4.0;Data Source=`` & Text1.Text Set cn = New ADODB.Connection cn.Open ConStr, ````, ```` `------------------------------------------------- `RecordSet `------------------------------------------------- Set rs = New ADODB.Recordset rs.Open ``Select * From Employees``, cn rs.MoveFirst `------------------------------------------------- `Clear the listBox `------------------------------------------------- With List1 For i = .ListCount - 1 To 0 Step -1 .RemoveItem (i) Next `------------------------------------------------- `Fill the listbox `------------------------------------------------- While Not rs.EOF .AddItem rs.Fields(``LastName``) & `` `` & rs.Fields(``LastName``) rs.MoveNext Wend `------------------------------------------------- End With End Sub Private Sub List1_Click() `------------------------------------------------- `Fill the form`s labels `------------------------------------------------- rs.MoveFirst rs.Move List1.ListIndex For Each Label In Label1 Label.Caption = rs.Fields(Label.Index) Next End Sub בהצלחה
