Enlazar un Flexgrid a base de datos mediante codigo

[Fhermin]

Hola tengo un problemita,,, estoy haciendo un programa para el control de un taller peke,,, pero kiero hacerlo de la mejor manera posible:
mi proble radica en que quiero hacer lo enlases da tal manera que dondequiera que se instale la aplicacion,,, funcione,,,
logre hacer esto mediante codigo,,, no uso controles


Public rsPublic As ADODB.Recordset 'recordset de accseso a datos ADO
Public ConnPublic As ADODB.Connection 'coneccion

ya logre hacer la coneccion,,, pero no puedo hacer el enlace con un datagid, Flexgid, tengo esto,, aver que me pueden decir:

Lo que quiero lograr es un modulo de busqueda, con el que pueda filtrar los datos mediante el uso de cajas de texto; Nombre, Apellido, u otro campo

Sub ActualizaDataGrid()

Set ConnPublic = New ADODB.Connection
Set rsPublicAux = New ADODB.Recordset

'Hacer la coneccion can la base de datos
ConnPublic.ConnectionString = CadenaConStr
ConnPublic.Open

'Estableser Los Terminos De Coneccion
rsPublicAux.CursorLocation = adUseClient
rsPublicAux.CursorType = adOpenDynamic
rsPublicAux.LockType = adLockOptimistic

Aqui es donde me marca un error
'Enlazar El Data Grid Con La Tabla....
Set MSFlexGrid.DataSource = rsPublicAux
Tampoco me lo Acepta asi:
MSFlexGrid.DataSource = rsPublicAux



'Hacer la coneccion con La Instruccion (iSQL contien la intriccion sql)
rsPublicAux.Open iSQL, ConnPublic

End Sub

no se como hacer el enlace,,,, como le ago,,,,,