Añadir recordset a Treeview vb .net

[Taurus427]

Necesito saber como puedo cargar en un Treeview los datos obtenidos de una base de datos Mysql mediante esta dll VBMySQLDirect.dll

If gCnn.State = VBMySQLDirect.MYSQL_CONNECTION_STATE.MY_CONN_OPEN Then
Me.cnstatus.Text = "Conectado"
Me.tvTables.Nodes.Clear()

pRs = New VBMySQLDirect.MYSQL_RS
pRs = gCnn.Show(VBMySQLDirect.MYSQL_SHOWTYPE.MY_SHOW_TAB LES)
Me.Text = pRs.State

pRs.CloseRecordset()
End If

Como hago para que los datos de pRs me los cargue en una treeview?

Un Saludo y Gracias

[Taurus427]

Hola, ya he conseguido que se me conecte a una base de datos Mysql Remotamente y lo que no consigo es que me cargue en un Treeview los datos que he metido en un Recordset: Aqui os dejo el Código

Public Sub RefreshTables()
Dim pRs As dbnet.MYSQL_RS
Dim nodX As TreeNode

If Not gCnn.State = dbnet.MYSQL_CONNECTION_STATE.MY_CONN_OPEN Then Exit Sub


Me.tvTables.Nodes.Clear()
nodX = Me.tvTables.Nodes.Add("Tables")
Me.txtSQL.Text = ""
Me.lstData.Items.Clear()
Me.lstData.Columns.Clear()


pRs = New dbnet.MYSQL_RS
pRs = gCnn.Show(dbnet.MYSQL_SHOWTYPE.MY_SHOW_TABLES)
pRs.MoveFirst()
Do While Not pRs.EOF
'Aqui es donde me da el Problema ya que no me carga Nada
nodX = Me.tvTables.Nodes.Add(pRs.fields(0))
pRs.MoveNext()
Loop
pRs.CloseRecordset()
pRs = Nothing
nodX.EnsureVisible()

End Sub

Quiero que me emta todas las tablas en el trreview, pero no lo consigo, aunque si me carga las 71 tablas que hay pero no me pone el nombre de la tabla

Un Saludo

[Taurus427]

Me respondo yo porque si no no lo hace nadie, en fin aqui va la solucion que he encontrado yo solo: nodX = Me.tvTables.Nodes.Add(pRs.Fields(0).Value)

Un Saludo, espero que os sirva