Visual Basic - no me funciona

Lo que me cuentas ya lo he probado, pero al asignar el recordset me da un error porque no coinciden los tipos.

Pongo el codigo a ver si me puedes ayudar:

´EN UN MODULO______________________________
Public bd As Database
´este sub actualiza el recordset bien,
´ lo he comprovado
Public Sub LeerRecordset(ByRef rs As Recordset, id As Integer)

Dim mySQL As String

mySQL = "select * from TABLA where CLAVE=" & id
Set rs = bd.OpenRecordset(mySQL, dbOpenDynaset)

End Sub

´EN UN FORMULARIO_______________________

Private Sub Command1_Click()
Dim rsLineas As Recordset

Call LeerRecordset(rsLinias, 1)
´En este punto tengo el recordset con contenido
´Y ahora no puedo asignar directamentamente el
´recordset a un mshflexgrid ni a un datacontrol.
´por ejemplo:

Set mshflexgrid1.Recordset = rsLineas
set mshflexgrid1.DataSource = rslineas
´me dan error de tipos diferentes

mshflexgrid1.Refresh
End Sub

Espero que esto ayude a entender mi problema y que alguien me pueda dar una solucion.
Gracias.

Yo uso ADO y solamente uso el mshFlexgrid.Recordset y me funciona has probado quitando el datasource sino verifica en la ayuda si el RECORDSET de ese flexgrid acepta DAO ya que creo que en los controles de Visual esta Flexgrid y MSHFlexgrid

Atte.
Eduardo
Caracas-Vzla