请高手帮忙，

每次运行就报：运行时错误'3170'，找不到可插入的ISAM
源代码如下：Dim mcp As Object
Dim jieshu, fangshi, suan, jian, wendu As Variant
Dim i, j As LongPrivate Sub Form_Load()
Set mcp = CreateObject("WinCC-Runtime-Project")  好像卡在这里
suan = mcp.getvalue("PH1_OUT")
jian = mcp.getvalue("PH2_OUT")
wendu = mcp.getvalue("TC02_OUT")
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set mcp = Nothing
End Sub
Private Sub Timer1_Timer()
record
Unload Me
End Sub
Sub record()
jieshu = mcp.getvalue("jieshuwheizhi")
fangshi = mcp.getvalue("jieshufangshi")i = jieshu
xuanqu
Data1.RecordSource = "qingxijilu"
Data1.Refresh
Data1.Recordset.AddNew
Data1.Recordset("卡号") = Data2.Recordset("卡号")
Data1.Recordset("车牌号码") = Data2.Recordset("车牌号码")
Data1.Recordset("清洗开始时间") = Data2.Recordset("清洗开始时间")
Data1.Recordset("清洗结束时间") = Now
Data1.Recordset("清洗方式") = Data2.Recordset("清洗方式")
Data1.Recordset("清洗过程状态") = Data2.Recordset("清洗过程状态")
Data1.Recordset("清洗开始酸浓度") = Data2.Recordset("清洗开始酸浓度")
Data1.Recordset("清洗开始碱浓度") = Data2.Recordset("清洗开始碱浓度")
Data1.Recordset("清洗结束酸浓度") = suan
Data1.Recordset("清洗结束碱浓度") = jian
Data1.Recordset("清洗线") = Data2.Recordset("ID")
Data1.Recordset("温度") = wendu
Data1.Recordset.UpdateData1.RecordSource = "SELECT * FROM kahao WHERE 卡号='" & Data2.Recordset("卡号") & "'"
Data1.Refresh
Data1.Recordset.Edit
If fangshi = 0 Then
Data1.Recordset("当前单碱洗次数") = Data1.Recordset("当前单碱洗次数") + 1
Else
Data1.Recordset("当前单碱洗次数") = 0
End If
Data1.Recordset("已清洗次数") = Data1.Recordset("已清洗次数") + 1
Data1.Recordset.Update
FUWEI
End Sub
Sub xuanqu()
Select Case i
       Case 1
       Data2.RecordSource = "select * from lingshijilu where ID=1"
      
       Case 2
       Data2.RecordSource = "select * from lingshijilu where ID=2"
       
       Case 3
       Data2.RecordSource = "select * from lingshijilu where ID=3"
       
       Case 4
       Data2.RecordSource = "select * from lingshijilu where ID=4"
       
       Case 5
       Data2.RecordSource = "select * from lingshijilu where ID=5"
       
       Case 6
       Data2.RecordSource = "select * from lingshijilu where ID=6"
       
End Select
    Data2.Refresh
End Sub
Sub FUWEI()
Select Case i
       Case 1
        mcp.Setvalue "jianend_1", 0
        mcp.Setvalue "cipend_1", 0
        mcp.Setvalue "need_1", 0
        Case 2
        mcp.Setvalue "jianend_2", 0
        mcp.Setvalue "cipend_2", 0
        mcp.Setvalue "need_2", 0
         Case 3
        mcp.Setvalue "jianend_3", 0
        mcp.Setvalue "cipend_3", 0
        mcp.Setvalue "need_3", 0
         Case 4
        mcp.Setvalue "jianend_4", 0
        mcp.Setvalue "cipend_4", 0
        mcp.Setvalue "need_4", 0
         Case 5
        mcp.Setvalue "jianend_5", 0
        mcp.Setvalue "cipend_5", 0
        mcp.Setvalue "need_5", 0
         Case 6
        mcp.Setvalue "jianend_6", 0
        mcp.Setvalue "cipend_6", 0
        mcp.Setvalue "need_6", 0
End Select
       
       
       
       
End Sub