Public Sub ToListview(ByVal SqlQuery As String, _
                         	ByRef Lv As ListView)
 
    	Dim myConnection As MySqlConnection = verbinden()
    	Dim myCommand As New MySqlCommand(SqlQuery, myConnection)
    	Dim myAdapter As New MySqlDataAdapter(myCommand)
    	Dim myDataTable As New DataTable
 
    	'Daten aus DB holen und in Variable "myDataTable" speichern
    	myAdapter.Fill(myDataTable)
 
    	'Überschriften
    	For Each col As DataColumn In myDataTable.Columns
        	Lv.Columns.Add(CStr(col.Caption), 200)
    	Next
 
    	'Daten
    	For Each Row As Data.DataRow In myDataTable.Rows
        	Dim lvi As ListViewItem = Lv.Items.Add(Row.Item(0).ToString())
        	For Each Column As Data.DataColumn In myDataTable.Columns
            	If Column.ColumnName = myDataTable.Columns(0).ColumnName Then _
              	Continue For
            	Dim val As String = If(Row.Item(Column) Is DBNull.Value, "[null]", _
            	Row.Item(Column).ToString())
            	lvi.SubItems.Add(val)
        	Next
    	Next
	End Sub

Gru? MTAS