VB运作报错75

VB运行报错75
Public Sub SaveInfos(Frm As Form)
    With Frm
        Dim dbRecordset As New ADODB.Recordset
        If .LngCurMode = 2 Or .LngCurMode = 3 Or .LngCurMode = 4 Then
            dbRecordset.Open "select * FROM 主数据表 where id=" & .LngCurId, db, 1, 3
        ElseIf .LngCurMode = 1 Then
            dbRecordset.Open "select * FROM 主数据表", db, 1, 3
            dbRecordset.AddNew
        End If
        Dim vItem, TmpStr As String
        For Each vItem In .Controls
            If TypeOf vItem Is TextBox Then
                If vItem.Name <> "TxtModel" Then
                    dbRecordset.Fields(vItem.Tag) = vItem.Text & ""
                End If
            End If
        Next
        dbRecordset.Fields("设备类型") = .StrCurType
        dbRecordset.Fields("设备名称") = .StrCurName
        dbRecordset.Fields("规格型号") = .TxtModel.Text
        Dim TempDrawingName As String, NewDrawingName As String
        TempDrawingName = App.Path & "\Drawings\0.dwg"
        If Dir(TempDrawingName) <> "" Then
            If .LngCurMode = 1 Then
                NewDrawingName = App.Path & "\Drawings" & dbRecordset.Fields("ID").Value & ".dwg"
            Else
                NewDrawingName = App.Path & "\Drawings" & Frm.LngCurId & ".dwg"
            End If
            If Dir(NewDrawingName) <> "" Then
                Kill NewDrawingName '该行报错，用msgbox NewDrawingName能正确显示文件路径
            End If
            Name TempDrawingName As NewDrawingName
        End If
        dbRecordset.Update

        dbRecordset.Close
        Set dbRecordset = Nothing
        FrmMain.ReloadSheet
        Unload Frm
    End With
    If FrmMain.CombModel.Text = "" Then
        FrmMain.ComName_Click
    End If
End Sub
求解答！
不好意思，分不够 只能发这儿了！
[解决办法]
ESK有可能NewDrawingName这个文件处于打开状态？