[求助]：谁能帮帮我?

lyq1977

我编的程序运行时出现

                               
登录/注册后可看大图

程序的部分代码如下:
Option Explicit

Dim 提升Db As Database '定义提升数据库excel对象
Dim 绞车Rs As Recordset '定义绞车excel工作表对象
Dim 钢丝绳Rs As Recordset '定义钢丝绳excel工作表对象
Dim 电机Rs As Recordset '定义电动机excel工作表对象
Dim 天轮Rs As Recordset '定义天轮excel工作表对象
Dim AppPath As String
Dim FilePath As String
Dim 绞车SheetName As String
Dim 钢丝绳SheetName As String
Dim 电机SheetName As String
Dim 天轮SheetName As String




Private Sub Form_Load()

    If Right$(App.Path, 1) <> "\" Then
        AppPath = App.Path & "\"
    Else
        AppPath = App.Path & "\"
    End If
   
    FilePath = AppPath & "tsdata.xls"

    If 基础数据输入2.绞车类型.Text = "JT/JTP型(D=0.8-1.6m,上海)" Then
        绞车SheetName = "jt$" '设置活动工作表,选取jt型绞车
    ElseIf 基础数据输入2.绞车类型.Text = "GKT型绞车(1.2-2.5m,重庆)" Then
        绞车SheetName = "gkt$" '设置活动工作表,选取gkt型绞车
    ElseIf 基础数据输入2.绞车类型.Text = "JKE型绞车(2-4m,洛阳)" Then
        绞车SheetName = "jke$" '设置活动工作表,选取jke型绞车
    ElseIf 基础数据输入2.绞车类型.Text = "JTB型防爆电绞车(1.2-2m,重庆)" Then
        绞车SheetName = "jtb$" '设置活动工作表,选取jtb型绞车
    ElseIf 基础数据输入2.绞车类型.Text = "JKY型液压绞车(16-3m,洛阳)" Then
        绞车SheetName = "jky$" '设置活动工作表,选取jky型绞车
    ElseIf 基础数据输入2.绞车类型.Text = "JTY/JKY型防爆液压绞车(1.2-2.5m,株洲)" Then
        绞车SheetName = "jty$" '设置活动工作表,选取jty型绞车
    End If

    If 基础数据输入2.钢丝绳类型.Text = "6×7+FC-1570型" Then
        钢丝绳SheetName = "6×7+FC-1570$" '设置活动工作表,选取6×7+FC-1570型钢丝绳
    ElseIf 基础数据输入2.钢丝绳类型.Text = "6×7+FC-1670型" Then
        钢丝绳SheetName = "6×7+FC-1670$" '设置活动工作表,选取6×7+FC-1670型钢丝绳
    ElseIf 基础数据输入2.钢丝绳类型.Text = "6×19S+FC-1570型" Then
        钢丝绳SheetName = "6×19S+FC-1570$" '设置活动工作表,选取6×19S+FC-1570型钢丝绳
    ElseIf 基础数据输入2.钢丝绳类型.Text = "6×19S+FC-1670型" Then
        钢丝绳SheetName = "6×19S+FC-1670$" '设置活动工作表,选取6×19S+FC-1670型钢丝绳
    ElseIf 基础数据输入2.钢丝绳类型.Text = "6×19+FC-1570型" Then
        钢丝绳SheetName = "6×19+FC-1570$" '设置活动工作表,选取6×19+FC-1570型钢丝绳
    ElseIf 基础数据输入2.钢丝绳类型.Text = "6×19+FC-1670型" Then
        钢丝绳SheetName = "6×19+FC-1670$" '设置活动工作表,选取6×19+FC-1670型钢丝绳
    ElseIf 基础数据输入2.钢丝绳类型.Text = "6V×18+FC-1570型" Then
        钢丝绳SheetName = "6V×18+FC-1570$" '设置活动工作表,选取6V×18+FC-1570型钢丝绳
    ElseIf 基础数据输入2.钢丝绳类型.Text = "6V×18+FC-1670型" Then
        钢丝绳SheetName = "6V×18+FC-1670$" '设置活动工作表,选取6V×18+FC-1670型钢丝绳
    ElseIf 基础数据输入2.钢丝绳类型.Text = "6×7 (老型号)" Then
        钢丝绳SheetName = "6×7$" '设置活动工作表,选取6×7型钢丝绳
    ElseIf 基础数据输入2.钢丝绳类型.Text = "6X(19)(老型号)" Then
        钢丝绳SheetName = "6X(19)$" '设置活动工作表,选取6X(19)型钢丝绳
    ElseIf 基础数据输入2.钢丝绳类型.Text = "6△(18)-155型(老型号)" Then
        钢丝绳SheetName = "6△(18)-155$" '设置活动工作表,选取6△(18)-15型钢丝绳
    ElseIf 基础数据输入2.钢丝绳类型.Text = "6△(18)-170型(老型号)" Then
        钢丝绳SheetName = "6△(18)-170$" '设置活动工作表,选取6△(18)-170型钢丝绳
    End If

    If 基础数据输入2.电动机类型.Text = "JR型" Then
        电机SheetName = "jr$" '设置活动工作表,选取jr型电动机
    ElseIf 基础数据输入2.电动机类型.Text = "YR型" Then
        电机SheetName = "yr$" '设置活动工作表,选取yr型电动机
    ElseIf 基础数据输入2.电动机类型.Text = "YB型" Then
        电机SheetName = "yb$" '设置活动工作表,选取yb型电动机
    End If

    If 基础数据输入2.天轮类型.Text = "固定天轮(TXG型)" Then
        天轮SheetName = "txg$" '设置活动工作表,选取txg型天轮
    ElseIf 基础数据输入2.天轮类型.Text = "游动天轮(TD型)" Then
        天轮SheetName = "td$" '设置活动工作表,选取td型天轮
    End If
   
    Set 提升Db = OpenDatabase(FilePath, False, False, "Excel 8.0;HDR=yes;")
   
    Set 绞车Rs = 提升Db.OpenRecordset(绞车SheetName)
    Set 钢丝绳Rs = 提升Db.OpenRecordset(钢丝绳SheetName)
    Set 电机Rs = 提升Db.OpenRecordset(电机SheetName)
    Set 天轮Rs = 提升Db.OpenRecordset(天轮SheetName)
   
    If 绞车Rs.RecordCount Then
        绞车Rs.MoveLast
        绞车Rs.MoveFirst
    End If
   
    If 钢丝绳Rs.RecordCount > 0 Then
        钢丝绳Rs.MoveLast
        钢丝绳Rs.MoveFirst
    End If
   
    If 电机Rs.RecordCount > 0 Then
        电机Rs.MoveLast
        电机Rs.MoveFirst
    End If
   
    If 天轮Rs.RecordCount > 0 Then
        电机Rs.MoveLast
        电机Rs.MoveFirst
    End If

End Sub

zzz8662

把你的程序目的说一下啊

lyq1977

就是在
绞车SheetName、 钢丝绳SheetName 、 电机SheetName、 天轮SheetName 数据表内搜索合适的数据记录

efan2000

从提示信息上看，应该是使用了不支持的特殊字符。

lyq1977

最初由 efan2000 发布
[B]从提示信息上看，应该是使用了不支持的特殊字符。 [/B]

您能指教是哪个字符吗?