vb程序编译时出现“子程序或函数未定义”是什么原因？

Question

Sub ShowGridData()
Dim rs As ADODB.Recordset
Dim sql As String
Dim msgstr As String

sql = "select roomID,customID,customname,discount,indate,sex,memo,from OrderRoom"

Set rs = Gosql(sql, msgstr)
With MSHFlexGrid1
Set .Recordset = rs
Call ShowTitle
End With

Set rs = Nothing
End Sub
给出详细的解决办法啊？我也不是太懂，你们说的都模糊的很？详细解答加分

Answer 1

子程序或函数未定义

说明你程序里有方法没有定义
或者没引用什么dll、控件什么的。

大部分都是这个问题

Answer 2

函数Gosql既不是VB自带的函数，也不是API函数，是你自定义的吗？

如果你没有定义函数Gosql，当然会在编译时出现“子程序或函数未定义”。

由于本人对VB中的sql不是很了解，所以关于函数Gosql的大致代码，本人无能为力，还请你另请高手...

Answer 3

Set rs = Gosql(sql, msgstr)
或
Call ShowTitle
中的函数未定义

Answer 4

Dim rs As ADODB.Recordset
有点问题本回答被提问者采纳