求助超急

Question

我毕业设计用VB编完程了,VB能正常运行,但是不能生成系统文件.上面显示我这个程是这样编的
Private Sub Connection1_InfoMessage(ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)End SubPrivate Sub DataEnvironment_Initialize()
DataEnvironment1.Connection1.Open App.Path & "\db1.mdb"
End SubPrivate Sub DataEnvironment_Terminate()
DataEnvironment1.Connection1.Close
pd = True
aa = True
End Sub
求高手指点改成能生成的程序,卖血求解

Answer 1

CAOZHY 谢谢你的帮肋.高手出手自是不同一般,小弟受教.我以经迷恋上你了哈哈