个人收支管理 vb GoTo jump showerror: MsgBox Err.Description With dbs If .State = adStateOpen Then .Close End If .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = App.Path & "\mymoney.mdb" .Open End With With rst If .State =