Private Sub cmdDBLoad_Click(ByVal sender As System.Object, _
                                    ByVal e As System.EventArgs) Handles _
                                    cmdDBLoad.Click
 
        Dim Filter As String
        Filter = TBFilter.Text
 
        Dim dbName As String
        dbName = TBFolder.Text & "\Borm_SQL.mdb"
 
        Dim con As New OleDb.OleDbConnection
        Dim cmd As New OleDb.OleDbCommand
        Dim reader As OleDb.OleDbDataReader
 
        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data" & _
          "Source=" & dbName
        cmd.Connection = con
        cmd.CommandText = "Select * From AUF_STAMM Where AUF_NR Like '" & _
          Filter & "'"
        With ListView1
            .Columns.Clear()
            .Items.Clear()
            .FullRowSelect = True
            .View = View.Details
            .GridLines = True
        End With
 
        With ListView1.Columns
            .Add("Vorgangs Nr.:", 70)
            .Add("A/Pos.-Nr.:", 50)
            .Add("Objekt - Bezeichnung", 180)
            .Add("Positions - Bezeichnung", 180)
        End With
 
        Try
            con.Open()
 
            reader = cmd.ExecuteReader()
            ListView1.Items.Clear()
            Do While reader.Read()
                Dim LItem As New ListViewItem
                LItem.Text = (reader("AUF_NR"))
                LItem.SubItems.Add(reader("AUF_POS"))
                LItem.SubItems.Add(reader("AUF_BEZEICHNUNG"))
                LItem.SubItems.Add(reader("AUF_POS_BEZ"))
 
                ListView1.Items.AddRange(New ListViewItem() {LItem})
 
            Loop
            reader.Close()
            con.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
            Return
        End Try
    End Sub

VG

Dirk