checi = rs3("车次").Value                                              '找到对应时间的车次



Dim rs4 As New ADODB.Recordset
Set rs4.ActiveConnection = cnn
rs4.CursorType = adOpenStatic
rs4.Open "select * from 停站时间  where '车次 = " & checi & "'"
tingzhan = rs4("廊坊站").Value                                       '判定是否在站停车


If tingzhan = 0 Then
     If Val(Left("&checi&" - 1)) / 2 <> 0 Then
         If Combo1.Text = checi Then
            Form1.Line (2950, 3600)-(14650, 3600), vbRed
         End If
        
     Else
          If Combo1.Text = checi Then
           Form1.Line (2950, 3800)-(14650, 3800), vbRed
          End If
         
     End If
     
Else
   
   
   '找路径
End If


这里数据库里的车次字段设的是文本类型，我想将这个字段里的文本去掉第一个字后面的数字转换成数字的形式进行加减乘除，但是报的这个错我该怎么改呢？求大神帮助