VB+Access数据库操作问题,急!帮帮忙啊

Public cnn As New ADODB.Connection
Public rst As New ADODB.Recordset
Public Sub DBConnect()
Dim CONSTER As String
CONSTER = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\luntai.mdb;Persist Security Info=False"
cnn.ConnectionString = CONSTER
cnn.Open
If cnn.State <> adStateOpen Then
MsgBox "数据库连接失败", vbOKOnly + vbCritical, "连接失败"
End If
End Sub
Public Sub dbdisconnect()
cnn.Close
Set cnn = Nothing
End Sub
Public Sub SQLExt(ByVal SQLStmt As String)
Dim cmd As New ADODB.Command
DBConnect
Set cmd.ActiveConnection = cnn
cmd.CommandText = SQLStmt
cmd.Execute
Set cmd = Nothing
dbdisconnect
End Sub
Public Sub insert()
SQLStmt = "insert INTO TireData(TireManufacturer,TireSize,TireConstruction,WheelSize,Pressure,RoadSurface,TestDate,SampleRate,TestState,DataNo,SA,IA,Fz,V,Fx,Fy,Mx,My,Mz,Rl,P,SR) VALUES('" + Trim(TireManufacturer) + "','" + Trim(TireSize) + "','" + Trim(TireConstruction) + "','" + Trim(WheelSize) + "','" + Trim(Val(Pressure)) + "','" + Trim(RoadSurface) + "','" + Trim(TestData) + "','" + Trim(Val(SampleRate)) + "','" + Trim(TestState) + "','" + Trim(Val(DataNo)) + "','" + Trim(Val(SA)) + "','" + Trim(Val(IA)) + "','" + Trim(Val(Fz)) + "','" + Trim(Val(Fx)) + "','" + Trim(Val(Fy)) + "','" + Trim(Val(Mx)) + "','" + Trim(Val(My)) + "','" + Trim(Val(My)) + "','" + Trim(Val(Mz)) + "','" + Trim(Val(Rl)) + "','" + Trim(Val(P)) + "','" + Trim(Val(SR)) + "')"
SQLExt SQLStmt
End Sub
private sub form1_load()
<<<<<<<<<<变量赋值
objTireData.insert<<<<<<<<<<已定义完TireData表的类
end sub
现定义了几个函数,连接数据库,数据库操作函数,运行光标停在cmd.Execute处,
提示标准表达是中数据类型不匹配,这是怎么回事啊,可能说得有点乱,请高手帮帮忙