CARREGAR UM TRUEDBGRID COM RECORDSET

SALLESCOUTINHO 05/04/2013 09:23:24
#421548

Ola pessoal estou tentando carregar um TdbGrid com os registros do recordSet
segue abaixo o codigo que estou usando.
a propriedade filds do grid esta com os nomes dos campos da tabela

public Function ConsultaPais2(ByVal vetDados As Variant, _
Optional ByRef rsRetorno As ADODB.Recordset)
Dim strSQL As String
Dim Rs As New ADODB.Recordset

On Error GoTo Erro
strSQL = [Ô] SELECT * FROM PAIS [Ô]
End If
rsRetorno.Open strSQL, Cn, adOpenDynamic, adLockOptimistic
Set tabPais.DataSource = rsRetorno

Exit Function
Erro:
Call Alerta([Ô]Falha ao realizar a operação: cnnLocal.bas - ConsultaPais [Ô])
Exit Function
Resume
End Function