急求解：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板块哈.