'combo com lista dos nomes -> no load da tela

  Cidades.Index = "Por nome"
  If Cidades.RecordCount > 0 Then
    Cidades.MoveMin
    Do While Not Cidades.EOF
      cmbcidade.AddItem IIf(IsNull(Cidades("Nome da cidade")), "", Cidades("Nome da cidade"))
      Cidades.MoveNext
    Loop
  End If

'imprimir -> seleciona apenas o registro com o mesmo nome que estiver selecionado no combobox

dim rst as recordset

set rst = vgdb.openrecordset("Select * From tabela Where [Nome] = '" & cmbcidade.text & "')

...

'usando o pritnt

 Set tb = db.OpenRecordset("Select * from tabela where nome =' " & combo1.text & "'")
            Printer.FontName = "Arial"
            Printer.FontSize = "10"
            Printer.Print Tab(3); tb("nome");

 

'usando o Crystal Reports

 Set tb = db.OpenRecordset("Select * from tabela where nome =' " & combo1.text & "'")
 CrystalReport1.Destination = 0
 CrystalReport1.ReportFileName = "caminho do BD"

 CrystalReport1.SelectionFormula = "{tabela.nome} = '" & combo1.text & "'"
 CrystalReport1.Action = 1
ps: {tabela.nome} - eh uma formula que vc vai criar no Crystal Reports

 

se precisar de mais alguma coisa eh soh avisar

[ ]'s

cadu

Pessoal obrigado pelas respostas, mas ainda estou com problema não consigo exibir dados no Combo1 para selecionar segue o codigo abaixo.

 

 

Option Explicit
Dim area As Workspace
Dim db As Database
Dim rs As Recordset

 

Private Sub Command1_Click()
 Call imprime_dados
End Sub
Private Sub imprime_dados()
 Dim tamanhofolha As Integer
 Dim i As Integer
 
 Set db = rs.OpenRecordset("Select * from cadastro where Nome =' " & Combo1.Text & "'")

If rs.RecordCount > 0 Then

    rs.MoveMin
   
    Do While Not rs.EOF
    Combo1.AddItem IIf(IsNull(rs("Nome")), "", rs("Nome"))
 

 Printer.FontName = "Arial"
 Printer.FontSize = "10"
 tamanhofolha = Printer.ScaleHeight - 1440
 
 
 contapagina = 0
 Call cabecalho
 
Do While Not rs.EOF
 
  If Printer.CurrentY >= tamanhofolha Then
     Printer.NewPage
     Call cabecalho
  End If
 
  '-------------------------------------------
  Printer.Print Tab(0); rs("nome");
  Printer.Print Tab(30); rs("endereço");
  Printer.Print Tab(60); rs("cidade");
  Printer.Print Tab(90); rs("estado");
  Printer.Print Tab(95); rs("cep")
  '--------------------------------------------
 
  rs.MoveNext

Loop

Printer.EndDoc

MsgBox "Os dados foram enviados para a impressora ... ! "

End Sub

Private Sub Command2_Click()
  rs.Close
  db.Close
  Set rs = Nothing
  Set db = Nothing
  Unload Me
End Sub

Private Sub Form_Load()

Set area = DBEngine.Workspaces(0)
Set db = area.OpenDatabase(App.Path & "cadastro.mdb")
Set rs = db.OpenRecordset("clientes", dbOpenTable)
rs.Index = "Nome"

rs.MoveMax
rs.MoveMin
letreiro.Visible = True

Label1.Visible = True
Label2.Visible = True
Label3.Visible = True

Label2.Caption = rs.RecordCount

End Sub

 

Observação em tempo