急求解：VB程序运行出错,该如何解决
急求解：VB程序运行出错
OpenSchema下adSchemaIndexes的用法。
范例程序如下：
Public conn As Connection
Public rs As Recordset
Private Sub Form_Load()
Dim conStr As String
Set conn = New ADODB.Connection
conStr = "ok"---这一步是好的
conn.Open conStr
Set rs = conn.OpenSchema(adSchemaIndexes, Array(Empty, "sample", Empty, Empty, "CARD"))
While Not rs.EOF
Debug.Print rs!COLUMN_NAME
rs.MoveNext
Wend
End Sub
问题出在一运行就报错：无法编译
------解决方案--------------------
conStr = "ok"---这一步是好的
vb里边可以这样写??
直接使用ADODB ,引用了么
这贴该发到VB板块哈.
OpenSchema下adSchemaIndexes的用法。
范例程序如下：
Public conn As Connection
Public rs As Recordset
Private Sub Form_Load()
Dim conStr As String
Set conn = New ADODB.Connection
conStr = "ok"---这一步是好的
conn.Open conStr
Set rs = conn.OpenSchema(adSchemaIndexes, Array(Empty, "sample", Empty, Empty, "CARD"))
While Not rs.EOF
Debug.Print rs!COLUMN_NAME
rs.MoveNext
Wend
End Sub
问题出在一运行就报错：无法编译
------解决方案--------------------
conStr = "ok"---这一步是好的
vb里边可以这样写??
直接使用ADODB ,引用了么
这贴该发到VB板块哈.