请问:SQL文中数据类型匹配的问题

我定义了几个变量,想给变量赋值,后以变量为查询条件写SELECT语句,数据类型匹配有问题,帮我看看问题出在哪了吗,谢谢,之前数据库已连接上了
Private Sub Command2_click()
Dim var1 As String
Dim var2 As long
Dim var3 As Long
Dim varSource As String
var1 = rs1.Fields(0)
var2 = rs1.Fields(1)
var3 = rs1.Fields(2)
varSource = "select * from TireData where TireManufacturer(数据类型为文本)= ' " & var1 & " ' and Pressure(数据类型为长整型)= " + Trim(Val(var2)) + " and SampleRate(数据类型为长整型)= " + Trim(Val(var3)) + " and TestState= '纯侧偏 ' "
rs2.CursorLocation = adUseClient
rs2.Open varSource, cnn, 3, 3



[解决办法]
varSource = "select * from TireData where TireManufacturer= ' " & var1 & " ' and Pressure= "& var2 & " and SampleRate= "& var3 & " and TestState= '纯侧偏 ' "