AYUDA CON UN ERROR DE Datasource

[inemart]

hola de nuevo por aqui.
tengo un problema cuando quiero mostrar unos datos en un mshflexgrid cuando realiza la busqueda me manda aun error y dice "Error en el metodo Datasource del objeto 'IMSHFLEXGRID' " y no se por que me marca este error este es mi codigo :

Private Sub Command3_Click()
Dim Str As String

srtsuc = ValidaCombo(CmbSucReng, RsSucursal, "codigo")
srtclie = ValidaCombo(CmbCliReng, RsClientes, "codigo")

Str = "select * " & _
" from backofficeMPB.dbo.VenDet" & _
" where cliente = " & srtclie & _
" and farmacia = " & srtsuc

rs.Open Str, Ocnn, adOpenDynamic, adLockOptimistic

Set MSHFlexgrid1.DataSource = rs (AQUI ME MARCA EL ERROR )


rs.Close

End Sub

alguien sabe por que me marca este error? gracias de antemano

----------------------------------------------
gracias por sus respuestas acertadas