Dim conn As New SqlConnection( _
           "Password=sa;Persist Security Info=True;" & _
           "User ID=sa;Initial Catalog=timemanager;" & _
            "Data Source=LOCALHOST;")
 
        Dim SQL As String = "SELECT * FROM cdcol"
        Dim da As New SqlDataAdapter(SQL, conn)
        Dim cmdB As New SqlCommandBuilder(da)
        Dim ds As New DataSet()
 
        conn.Open()
        da.Fill(ds, "cds")
        'da.Fill(ds, "Tabellenname")
        conn.Close()
 
        Dim dt As DataTable = ds.Tables("cds")
        'Dim dt As DataTable = ds.Tables("Tabellenname")
        Dim dr As DataRow
 
        For Each dr In dt.Rows
            Me.test.Items.Add(dr("Famname"))
            'Me.ListView1.Items.Add(dr("Feldname"))
        Next