Set DBList1.RowSource = Rs.GetRows

Option Explicit
 
Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
 
Private Sub UserForm_Activate()
 
With Cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Properties("Data Source") = "C:\Programme\Microsoft Visual" & _
      "Studio\VB98\Data.mdb"
    .Open
End With
 
With Rs
    .ActiveConnection = Cn
    .Source = "SELECT * FROM Programme"
    .Open
End With
    Set DBList1.RowSource = Rs.GetRows
End Sub