Popupmenu y msql

Hola a todos, tengo un inconveniente para asociar una base de datos a mi popupmenu, logre solo asociar determinada columna de la base de datos a mi popupmenu, pero no logro que el mismo muestre las tablas de dicha base de datos para que muestre en un datalist la tabla que elijo, esto es lo que tengo…

If Not IsConnected Then
MsgBox(“Conectar primero a una base de datos.”)
End If

popupmenu1.DeleteAllRows

Dim sql As String
sql = “SELECT * FROM Equipo”

Dim data As RecordSet
data = mDB.SQLSelect(sql)

If data <> Nil Then
While Not data.EOF
PopupMenu1.AddRow(data.IdxField(2).StringValue)
data.MoveNext
Wend
data.Close
End If