Private Sub Tätigkeiten_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Call AktualBetrieb()
    End Sub

            Dim Form As New Tätigkeiten
            Form.AktualBetrieb()

    Function AktualBetrieb()
        Dim conn As OleDbConnection
        conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
          "Source=C:\ang.mdb;")
        Dim oReader As OleDbDataReader
        Dim sql As String = "SELECT * FROM Betrieb"
        Dim cmd As New OleDbCommand(sql, conn)
        Dim da As New OleDbDataAdapter(cmd)
        Dim ds As New DataSet
        Dim dt As DataTable
        Dim cm As CurrencyManager
        Dim x As Integer
        Try
            conn.Open()
            da.Fill(ds, "Test")
            dt = ds.Tables.Item("Test")
            cm = Me.BindingContext(dt)
            cm.Position = 0
            TextBox1.DataBindings.Add("Text", dt, "Taetigkeit")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        For x = 0 To cm.Count - 1
            cm.Position = x
            ListView1.Items.Add(TextBox1.Text, dt.Rows(x).Item(1))
            TextBox1.Clear()
        Next x
        conn.Close()
        TextBox1.Clear()
    End Function