Dim Conn As ADODB.Connection
Dim RS As ADODB.Recordset
 
Set Conn = New ADODB.Connection
Conn.Provider = "MSDASQl"
Conn.Open "Driver=sql server; Server=sqlw2k; Database=northwind", _
          "", ""
 
Conn.CursorLocation = adUseClient
 
Set RS = New ADODB.Recordset
RS.CursorLocation = adUseClient
RS.Open "Select * from orders", Conn, adOpenKeyset, adLockReadOnly
 
 
    If RS.RecordCount > 0 Then
  While Not RS.EOF
    List.AddItem RS(1)
    RS.MoveNext
  Wend
End If
 
RS.Close
Conn.Close
Set RS = Nothing
Set Conn = Nothing

cu
Bris

"640 KB Ram sind mehr als irgendein Programm jemals ben?tigen wird."
- (Bill Gates - 1981)