Caro Leonardo, obrigado por sua resposta. Meu sistema é em vb6 com access ADO.
na real, eu consegui enquanto postava a ultima mensagem, carregar o relatório, porem está carregando todas as informações e não só as referente
aos combos. segue código:
Public Sub rel2()
Dim db_file As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strSQL As String
Dim strCliente As String
strCliente = frmRelatorio.cboMunicipio.Text
strCliente = frmRelatorio.cboBairro.Text
strCliente = frmRelatorio.cboLoteamento.Text
strSQL & "SELECT DataCad, CodCliente, Nome, CPF, RG,Nascimento, EstadoCivil, Conjuge, Nacionalidade, Profissao, Endereco, Complemento, Bairro,
Cidade, Estado, CEP, Telefone, "
strSQL = strSQL & "FoneComercial, Celular, Loteamento, Lote, Quadra, Vendedor, Area, Documento, Frente, Fundos, LD, LE, Obs FROM CadCliente
WHERE Cidade = ' " & frmRelatorio.cboMunicipio.Text & "' And Bairro = ' " & frmRelatorio.cboBairro.Text & " ' and Loteamento = ' " & frmRelatorio.cboLoteamento.Text & "' "
db_file = App.Path & "\Clientes.mdb"
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db_file & ";Persist Security Info=False"
conn.Open
Set rs = New ADODB.Recordset
rs.Open strSQL, conn
If rs.EOF = False Then
With dtrClientes
Set .DataSource = Nothing
.DataMember = ""
Set .DataSource = rs.DataSource
With .Sections("Section4").Controls
'joga o valor no primeiro textbox
.Item(1).DataMember = ""
.Item(1).DataField = rs(0).Name 'valor da primeira coluna retornada no select
'joga o valor no segundo textbox
.Item(2).DataMember = ""
.Item(2).DataField = rs(1).Name 'valor da segunda coluna retornada no select
'joga o valor no terceiro textbox
.Item(3).DataMember = ""
.Item(3).DataField = rs(2).Name 'valor da terceira coluna retornada no select
'joga o valor no quarto textbox
.Item(4).DataMember = ""
.Item(4).DataField = rs(3).Name 'valor da quarta coluna retornada no select
'joga o valor no quinta textbox
.Item(5).DataMember = ""
.Item(5).DataField = rs(4).Name 'valor da quinta coluna retornada no select
'joga o valor no sexta textbox
.Item(6).DataMember = ""
.Item(6).DataField = rs(5).Name 'valor da sexta coluna retornada no select
'joga o valor no sétima textbox
.Item(7).DataMember = ""
.Item(7).DataField = rs(6).Name 'valor da sétima coluna retornada no select
'joga o valor no oitava textbox
.Item(8).DataMember
= ""
.Item(8).DataField
= rs(7).Name 'valor da oitava coluna retornada no select
'joga o valor no nona textbox
.Item(9).DataMember = ""
.Item(9).DataField = rs(8).Name
'valor da nona coluna retornada no select
'joga o valor no decima textbox
.Item(10).DataMember = ""
.Item(10).DataField = rs(9).Name 'valor da decima coluna retornada no select
'joga o valor no decima primeira textbox
.Item(11).DataMember = ""
.Item(11).DataField = rs(10).Name 'valor da decima primeira coluna retornada no select
'joga o valor no decima segunda textbox
.Item(12).DataMember = ""
.Item(12).DataField = rs(11).Name 'valor da decima segunda coluna retornada no select
'joga o valor no decima terceira textbox
.Item(13).DataMember = ""
.Item(13).DataField = rs(12).Name 'valor da decima terceira coluna retornada no select
'joga o valor no decima quarta textbox
.Item(14).DataMember = ""
.Item(14).DataField = rs(13).Name 'valor da decima quarta coluna retornada no select
'joga o valor no decima quinta textbox
.Item(15).DataMember = ""
.Item(15).DataField = rs(14).Name 'valor da decima quinta coluna retornada no select
'joga o valor no decima sexta textbox
.Item(16).DataMember = ""
.Item(16).DataField = rs(15).Name 'valor da decima sexta coluna retornada no select
'joga o valor no decima setima textbox
.Item(17).DataMember = ""
.Item(17).DataField = rs(16).Name 'valor da decima setima coluna retornada no select
'joga o valor no decima oitava textbox
.Item(18).DataMember = ""
.Item(18).DataField = rs(17).Name 'valor da decima oitava coluna retornada no select
'joga o valor no decima nova textbox
.Item(19).DataMember = ""
.Item(19).DataField = rs(18).Name 'valor da decima decima nova coluna retornada no select
'joga o valor no segundo textbox
.Item(20).DataMember = ""
.Item(20).DataField = rs(19).Name 'valor da segunda coluna retornada no select
'joga o valor no vigessima textbox
.Item(21).DataMember = ""
.Item(21).DataField = rs(20).Name 'valor da vigessima coluna retornada no select
'joga o valor no vigessima primeira textbox
.Item(22).DataMember = ""
.Item(22).DataField = rs(21).Name 'valor da vigessima primeira coluna retornada no select
'joga o valor no vigessima segunda textbox
.Item(23).DataMember = ""
.Item(23).DataField = rs(22).Name 'valor da vigessima segunda coluna retornada no select
'joga o valor no vigessima terceira textbox
.Item(24).DataMember = ""
.Item(24).DataField = rs(23).Name 'valor da vigessima terceira coluna retornada no select
'joga o valor no vigessima quarta textbox
.Item(25).DataMember = ""
.Item(25).DataField = rs(24).Name 'valor da vigessima quarta coluna retornada no select
'joga o valor no vigessima quinta textbox
.Item(26).DataMember = ""
.Item(26).DataField = rs(25).Name 'valor da vigessima quinta coluna retornada no select
'joga o valor no vigessima sexta textbox
.Item(27).DataMember = ""
.Item(27).DataField = rs(26).Name 'valor da vigessima sexta coluna retornada no select
'joga o valor no vigessima setima textbox
.Item(28).DataMember = ""
.Item(28).DataField = rs(27).Name 'valor da vigessima setima coluna retornada no select
'joga o valor no vigessima oitava textbox
.Item(29).DataMember = ""
.Item(29).DataField = rs(28).Name 'valor da vigessima oitava coluna retornada no select
'joga o valor no vigessima nona textbox
.Item(30).DataMember = ""
.Item(30).DataField = rs(29).Name 'valor da vigessima nova coluna retornada no select
End With
.Show 1
End With
End If
dtrClientes.Show 1
rs.Close
conn.Close
End Sub
