كود جميل لوضع بيانات معينة فى قائمة من قاعدة الب

يساعدك هذا الكود فى وضع بيانات معينة فى قائمة من قاعدة البيانات

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

'Run multi select statment

rs.Open "SELECT au_lname FROM authors; SELECT fname FROM employee", "dsn=pubs", adOpenForwardOnly, adLockReadOnly

Do While Not rs.EOF

Me.lstAu.AddItem rs.Fields(0)

rs.MoveNext

Loop

'Get Next rs

Set rs = rs.NextRecordset

Do While Not rs.EOF

Me.lstEmp.AddItem rs.Fields(0)

rs.MoveNext

Loop

Set rs = Nothing