Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data " _
   & _
           "Source=C:\Users\xx\Desktop\Urlaubsantrag\Urlaubsantrag\Urlaubsantr" & _
           "g.mdb")
        cn.Open()
        Dim ergebnis As String
        With cn.CreateCommand()
 
            .CommandText = "Select Urlaubstage, Jahr FROM Urlaubstage WHERE " & _
                             "Mitarbeiternr=1" 
            ergebnis = .ExecuteScalar.ToString
            ListBox1.Text = ergebnis
.Dispose()
        End With
        cn.Close()