Basic - Especialista

Amigos,

//Estoy programando en visual con sql y llamo a un procedimiento almacenado:

CREATE PROCEDURE SP_CLIENTE_BUSCAR
@XCOD CHAR(5)
AS
SELECT * FROM CLIENTES WHERE CLICOD=@XCOD

//y lo conecto via modulo de clase

Public Function busca_cli(ByVal cod As String, oCn As ADODB.Connection) As ADODB.Recordset
Dim cmd As New ADODB.Command
With cmd
Set .ActiveConnection = oCn
.CommandType = adCmdStoredProc
.CommandText = "SP_CLIENTE_BUSCAR"
.Parameters.Append .CreateParameter("Return", adInteger, adParamReturnValue, , 0)
.Parameters.Append .CreateParameter("@clicod", adChar, adParamInput, 6, cod)
Set busca_cli = .Execute
End With
End Function

//pero al tratar de subirlo a un datagrid me bota error

If Area = 2 Then
nresp6 = OblClie.busca_cli(DataCombo2.BoundText, Cn)
DataGrid2.Refresh

DataGrid2.DataSource = nresp6

//Si pueden colaborarme con la respuesta se los agradecere muchisimo

Gracias
Fernando

epale mira chamo me podrias pasar como utilizo el data report con acces 2000 por favor es de urgencia te lo agradeceria