想把数据库表中的记录全都检索到listbox中

Question

想把数据库表中的记录全都检索到listbox中，怎么做，给出代码 ，谢谢

Answer 1

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strList As String
Private Sub Form_Load()
        cn.CursorLocation = adUseClient
        cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=(local)"
        rs.Open "select * from Orders", cn, adOpenKeyset, adLockReadOnly
        Dim i As Integer
        If rs.RecordCount > 0 Then
           rs.MoveFirst
           Do Until rs.EOF
              strList = ""
              For i = 0 To rs.Fields.Count - 1
                  strList = strList & vbTab & rs.Fields(i).Value
              Next
              List1.AddItem strList
              rs.MoveNext
           Loop
        End If
End Sub