Private Sub rdbAlleGespraeche_CheckedChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles rdbAlleGespraeche.CheckedChanged
        Dim myOleDbConnection As New OleDb.OleDbConnection
        myOleDbConnection.ConnectionString = _
          "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source=""c:\VB_Datenbanken\Datenbank.mdb"""
 
        Try
            myOleDbConnection.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Beim Öffnen der Datenbank ist ein" & _
              "Fehler aufgetreten.")
        End Try
 
        Dim myOleDbSelectCommand As New OleDb.OleDbCommand
        myOleDbSelectCommand.Connection = myOleDbConnection
        myOleDbSelectCommand.CommandText = "select * from t_GespAlle"
 
        Dim myOleDbDataAdapter As New OleDb.OleDbDataAdapter
        myOleDbDataAdapter.SelectCommand = myOleDbSelectCommand
 
        Dim myDataSet As New DataSet
        myOleDbDataAdapter.Fill(myDataSet, "t_GespAlle")
 
        dgvEintraege.DataSource = myDataSet
        dgvEintraege.DataMember = "t_GespAlle"
    End Sub