' Data-Source is added later with the Database Path and Name
         Private Con_String As String = "Provider=Microsoft.Jet.Oledb.4.0; Jet" & _
           "Oledb:Database Password=Pw; Data Source="
         Private Sel_StringArtikel As String = "Select * from Testdaten order" & _
         "by TestNumber"
         Private db_name As String
 
         Private con As OleDbConnection
         Private daTest As OleDbDataAdapter
         Private dtTest As DataTable
         Private cbTest As OleDbCommandBuilder
 
 
        ' First set the database file name.  
        db_name = Path.Combine(Application.StartupPath, "MeineDatenbank.mdb") 
 
        ' Build the connection string
        con = New OleDbConnection(Con_String & db_name)
 
        ' Declare the dataAdapter
        daTest = New OleDbDataAdapter(Sel_StringTest, con)
 
        ' Build the intern DataTable 
        dtTest = New DataTable("meinedaten")
 
 
        ' the OleDBCommandBuilder builds the Insert-, Update- und DeleteCommand 
        ' automaticly
        cbTest = New OleDbCommandBuilder(daTest)  
        cbTest.ConflictOption = ConflictOption.OverwriteChanges
 
        daTest.UpdateCommand = cbTest.GetUpdateCommand
        daTest.InsertCommand = cbTest.GetInsertCommand
        daTest.DeleteCommand = cbTest.GetDeleteCommand
 
 
        ' intern SUB that declares the Columns in the DataGrid
        TableStyle()                             
 
        Try
            ' Opens the Connection to the Database-File 
            con.Open()                           
            daTest.FillSchema(dtTest, SchemaType.Mapped)
            ' Reads all Data in the Database into the DataTable
            daTest.Fill(dtTest)  
            con.Close()
        Catch ex As Exception
            ' Show any Error in readable text
            MessageBox.Show(ex.Message, "Fehler:", MessageBoxButtons.OK, _
              MessageBoxIcon.Error)
           ' End
            Close() 
        End Try