1. Mein Einlesen meiner "alten" Daten (lacht ruhig...)
 
        Dim sr As IO.StreamReader = New IO.StreamReader(Application.StartupPath _
          & "\Ressources\" & c.jahr & ".dat", System.Text.Encoding.Default)
        Do
            jahrshit.Items.Add(sr.ReadLine)
        Loop While sr.Peek <> -1
 
        'Geb-Dater Read In
 
        Dim ss As IO.StreamReader = New IO.StreamReader(Application.StartupPath _
          & "\Ressources\" & c.monat & "\" & c.tag & ".dat", _
          System.Text.Encoding.Default)
        Do
            gebshit.Items.Add(ss.ReadLine)
        Loop While ss.Peek <> -1
 
2. Code zur Datenbankanbindung über DAO.net
 
Imports System.Data        
Dim conAccess As New OleDb.OleDbConnection
        Dim path As String = Application.StartupPath
        conAccess.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source = " & path & "\source.mdb;"
        conAcc
conaccess.Open()