Dim strselect As String = "SELECT Baustellennummer, Bezeichnung FROM Baustellen"
 
    Private Sub Baustellen_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Path = Application.StartupPath
        strConnectionString = "Provider='Microsoft.Jet.OLEDB.4.0';Data" & _
          "Source='" + Path + "\DB\Baustellenverwaltung.mdb'"
 
        Try
            objConnection = New OleDb.OleDbConnection(strConnectionString)
 
            Dim objBaustellen As OleDb.OleDbDataAdapter = New _
              OleDb.OleDbDataAdapter
 
            objBaustellen.SelectCommand = New OleDb.OleDbCommand(strselect, _
              objConnection)
            objConnection.Open()
 
            Dim dsBaustellen As New DataSet
            objBaustellen.Fill(dsBaustellen, "Baustellen")
 
            With DataGrid1
                .DataSource = dsBaustellen
            End With
            DataGrid1.NavigateTo(0, "Baustellen")
            objConnection.Close()
 
            'DataGrid1.SetDataBinding(dsBaustellen, "Baustellen")
        Catch
            MsgBox("Fehler", MsgBoxStyle.OKOnly)
        End Try
 
    End Sub