Llenar una lista con otra lista

[swatt]

Am no mira lo que pasa es que tengo que llenar un listbox por medio de una lista,
esto es hago un query y con el debo de llenar la lista, pero este lista la tengo en una function que me retorna una lista dentro de una clase. Hasta el llenado de la lista con el query creo yo estoy bien, pero a la hora de invocar esta function me marca un error que me dice: No se puede convertir el tipo string al tipo clase.

Y la verdad no se si estoy haciendo mal mi funcion o no se mira te anexo como lleno la lista con mi query. igual y eso es lo que esta mal:

Public Function SetTable() As List(Of String)

Dim sQ As String
Dim pr As Table
Dim listtablasprevia As List(Of String) = New List(Of String)
Dim listatablas As New List(Of Table)
' frmCatalogos.LblAgencia.Text = ""

sQ = "select entidad, Descripcion,orden from MMMI_catalogos where oculto = 0 and exists (select * from sysobjects where name = MMMI_catalogos.entidad) " _
& " union all" _
& " select entidad, Descripcion,orden from MMMI_catalogos where Descripcion like '*%' order by 3"
EjecutaSQL(sQ)

Do While SqlNextRow(sqlconn) = SnapSQLnet.Status.MOREROWS
pr = SqlData(CShort(sqlconn), 1)
listtablasprevia.Add(pr)

Loop
Return listtablasprevia

End Function



De antemano te agradezco....