Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data " & _
"Source=C:\Users\xx\Desktop\Urlaubsantrag\Urlaubsantrag\Urlaubsantrag.mdb"
 
        Dim cn As New OleDb.OleDbConnection(ConStr)
 
        cn.Open()
 
        Dim da As New OleDb.OleDbDataAdapter("Select Urlaubstage, Jahr " & _
            "FROM Urlaubstage WHERE Mitarbeiternr = 1", ConStr)
 
        Dim ds As New DataSet
 
        da.Fill(ds, "Urlaubstage")
 
        ListBox1.DataSource = ds
        ListBox1.DisplayMember = "Urlaubstage.Urlaubstage"
        ListBox1.ValueMember = "Urlaubstage"
 
        cn.Close()