SelectionFormula não funciona com variavel basica

[moisessg]

Ola Senhores, bom estou tentando passar um argumento para abrir o relatorio

atraves de uma text1 ou por uma DTPicker1

olhem só assim funciona.

CrystalReport1.SelectionFormula = "{ado.data} = '4/4/2012'" 'Consulta por Data
        CrystalReport1.Destination = 0
        CrystalReport1.ReportFileName = "C:\vb\relatorios1\ControlePCP.rpt"
        CrystalReport1.Action = 1

--------------------------------------------------------------- Porem preciso interagir com o usuario onde o mesmo digite o valor ou numa DTPicker1, ou numa text1

Dim criterio As Variant
        criterio = DTPicker1.Value
        CrystalReport1.SelectionFormula = "{ado.data} = 'criterio' " 'sei que o erro deve estar em alguma coisa na variavel
        CrystalReport1.Destination = 0
        CrystalReport1.ReportFileName = "C:\vb\relatorios1\ControlePCP.rpt"
        CrystalReport1.Action = 1

obs.:já tentei

Dim criterio As Variant
Dim criterio As String

O mesmo foi testado com uma Text1

Acho que bastante gente já deve ter tido esse problema.

Editado Abril 14, 2012 por kuroi
Adicionar tag CODE

[kuroi]

Isso??

CrystalReport1.SelectionFormula = "{ado.data} = '" & criterio & "'"