Public Class Rechnungsübersicht
    Dim con As New OleDb.OleDbConnection
    Dim cmd As New OleDb.OleDbCommand
 
    Dim uTA As New BuchhalterDataSetTableAdapters.T_RechnungenTableAdapter
    Dim t As New DataTable
 
    Private Sub Rechnungsübersicht_FormClosing(ByVal sender As Object, ByVal e _
      As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Me.uTA.Update(Me.BuchhalterDataSet1.T_Rechnungen)
    End Sub
 
    Private Sub Rechnungsübersicht_Load(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles MyBase.Load
        con.ConnectionString = _
           "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=" & My.Settings.v_Datenbank
        cmd.Connection = con
 
        dgvLaden()
    End Sub
 
Private Sub dgvLaden()
 
        cmd.CommandText = "select * from T_Rechnungen"
 
 
        Dim a As New OleDb.OleDbDataAdapter(cmd.CommandText, con)
 
        Try
            con.Open()
            a.Fill(t)
            con.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        DataGridView1.DataSource = t
 
    End Sub

-----------------------------------------------------------------
Woher soll ich wissen was ich denke, bevor ich h?re was ich sage?