Shared 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
        Dim Mex As Tätigkeiten
        Try
            conn.Open()
            da.Fill(ds, "Test")
            dt = ds.Tables.Item("Test")
            cm = Mex.BindingContext(dt)
            cm.Position = 0
            Mex.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
            Mex.ListView1.Items.Add(Mex.TextBox1.Text, dt.Rows(x).Item(1))
            Mex.TextBox1.Clear()
        Next x
        conn.Close()
        Mex.TextBox1.Clear()
    End Function

        Dim Formx As Tätigkeiten
        Formx.AktualBetrieb()

For x = 0 To cm.Count - 1