Public Sub SQLString()
        cmd.CommandText = " SELECT ? from ? where ? LIKE ? order by ?"
 
        cmd.Parameters.AddWithValue("p1", "Titel")
        cmd.Parameters.AddWithValue("p2", "Videoliste")
        cmd.Parameters.AddWithValue("p3", "Titel")
        cmd.Parameters.AddWithValue("p4", "A%")
        cmd.Parameters.AddWithValue("p5", "Titel")
        readerdb = cmd.ExecuteReader
        While (readerdb.Read())
            MsgBox(readerdb("Titel"))
        End While
    End Sub

Gruss Caddy