Private Sub Command1_Click()
Me.CrystalReport1.SQLQuery = "SELECT * FROM Tabela;"
Me.CrystalReport1.RetrieveDataFiles
Me.CrystalReport1.PrintReport
End Sub