Data Type Mismatch in Criteria Expression

[Kitha]

Boas pessoal, estou aqui com um problema com esse código, sempre que o corro aparece-me

"Run-Time Error '3464':

Data Type Mismatch in Criteria Expression"

'On Error GoTo Err_CmdConf_Click
Dim Base As Database
Dim str, strTest0, strTest1, strTest2, strTest3 As String
Dim rcd, rcd1, rcd2 As Recordset
Set Base = CurrentDb
Set rcd = Base.OpenRecordset("SLProd_Out", dbOpenDynaset)
Set rcd1 = Base.OpenRecordset("SLProd_In", dbOpenDynaset)
strTest0 = [Forms]![ShelfLife]![Lb_Armazem].Column(0)
strTest1 = [Forms]![ShelfLife]![Lb_Armazem].Column(1)
strTest2 = [Forms]![ShelfLife]![Lb_Armazem].Column(2)
strTest3 = [Forms]![ShelfLife]![Lb_UtiOfi].Column(4)
str = "SELECT SLProd_In.PN, SLProd_In.TR, SLProd_In.Dt_L, SLProd_Out.TAP_Num" _
 & " FROM SLProd_Out,SLProd_In WHERE (((SLProd_In.PN)='" & strTest0 & "') AND ((SLProd_In.TR)='" & strTest1 & "') AND ((SLProd_In.Dt_L)='" & strTest2 & "') AND ((SLProd_Out.TAP_Num)='" & strTest3 & "'))"
Set rcd2 = Base.OpenRecordset(str)

Se me pudessem ajudar agradecia

Cumps

 

[Armadillo]

que linguagem é essa? VB6?
e em que linha te dá o erro?

cumps

 

[Kitha]

Estou a trabalhar no Acess 2002, a versão do vb é a 6 também acho.
e dá-me erro depois de ler o código SQL--> "Set rcd2 = Base.OpenRecordset(str)".