窗口显示 [Microsoft][ODBC Microsoft Access Driver]'(未知的)'不是一个有效路径。确定路径名拼写是否正确，以及是否连接到文件存放的服务器。
代码： Private Sub Form_Load() Dim db As Database Set db = OpenDatabase("Sdsjk.mdb") 'xhcxxsfm.Adodc1.RecordSource = "select buy_day,buy_data,type_mn from dkb where num=" & bh & " order by buy_day" xhcxxsfm.Adodc1.RecordSource = "select * from zsb order by 购电日期" xhcxxsfm.Adodc1.Refresh Me.Refresh End Sub
