Question

vb中提示子程序或函数未定义是怎么回事

Private Sub Command1_Click()
Open "D:\zl\abc.mdb" For Input As 1
While Not EOF(1)
'Input #1, a1, a2, a3, a4, a5, a6, a7, a8

For i = 1 To 3
'Open "D:\zl\qqs.abc" For Input As 1

ChangeFileOpenDirectory "D:\zl\"
' Documents.Open FileName:="qqs.doc", ConfirmConversions:= _
' False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
' PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
' WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""

Answer 1

1）这句代码的 ChangeFileOpenDirectory在哪定义？
2）Access数据库，貌似以文本方式打开读到的恐怕是乱码吧。