运行VB时找不到工程或库 - 编程论坛

chen35232013-09-06 16:23

按我以前的改下就可以了
Private Sub Form_Activate()
  Dim s As String
  s = App.Path & "\break_even.mdb"

  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" + Chr(34) + s + Chr(34) & ";Persist Security Info=False"  '打开数据库,数据库无密码
= adCmdTable
Adodc1.RecordSource = "收款表"
Adodc1.Refresh

End Sub

[ 本帖最后由 chen3523 于 2013-9-11 20:53 编辑 ]