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

Question

我定义了几个变量,想给变量赋值,后以变量为查询条件写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

Answer 1

varSource = "select * from TireData where TireManufacturer='" & var1 & "' and Pressure=" + val(var2) + " and SampleRate=" + Val(var3) + " and TestState='纯侧偏'"
试试

Answer 2

varSource = "select * from TireData where TireManufacturer='" & var1 & "' and Pressure="& var2 & " and SampleRate= "& var3 & " and TestState='纯侧偏'"

Answer 3

字符型变量引用：'"& 变量名 &"'
数值型变量引用："& 变量名 &"