Datagrid y Recordset

[Taurus427]

Hola estoy intentando enlazar un recordset a una Datagrid para que me muestre los datos.
Y me da el siguiente Error:

5 El Enlace de datos Complejo acepta como origen de datos Ilist o IlistSource

Este es el código que utilizo:
Dim RecordsAffected As Long
Dim pRs As dbnet.MYSQL_RS
Dim Col As Integer
On Error GoTo eh

If Not gCnn.State = dbnet.MYSQL_CONNECTION_STATE.MY_CONN_OPEN Then Exit Sub
Me.tvTables.Focus()
Dim SQL As String
SQL = Trim$(Me.txtSQL.Text)
pRs = New dbnet.MYSQL_RS
pRs = gCnn.Execute(SQL, RecordsAffected)
Me.DataGrid1.DataSource = pRs
pRs.CloseRecordset()

Exit Sub
eh:
MsgBox(Err.Number & " " & Err.Description, vbCritical, "Error Connecting")
End Sub

Los datos on obtenidos desde una base de datos Mysql y se meten en el recorset.

Espero alguien pueda ayudarme.

Un Saludo