Question

vb编程出现二义性错误，怎么修改？

Private Sub Form_Click()
Public m As String
Public i As String
Public flag As Integer
Public Function exesql(ByVal sql As String) As ADODB.Recordset
sql = Trim$(sql)
Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset
conn.ConnectionString = "DSN=myd;UID=sa;PWD=;"
conn.Open
Set rst.ActiveConnection = conn
rst.LockType = adLockOptimistic
rst.CursorType = adOpenKeyset
rst.Open sql
Set exesql = rst
Set rst = Nothing
Set conn = Nothing

End Function
运行后显示发现二义性的名称exesql

Answer 1

在菜单->编辑->查找

如果不希望再遇到这问题 ,在加每个模块前加上 Option Explicit

或是 工具->选项->编辑器->勾上"要求变量声明"

Answer 2

把“Private Sub Form_Click()”去掉，然后把“Public Function exesql”中的“exesql”换个名称试试。

Answer 3

你的Form时间 少了个 End Sub
而且你sql = trim(sql) sql应该用ByVal

exesql 前面的Set 去掉

Answer 4

运行程序，提示出错时点，调试，然后删除出现黄色那行，，或者自已看一下是哪行出错了，，
不贴代码，，自已研究，希望很帮到你，，
在以后的出错中记得