vb做的个人收支系统 个人收支管理 vb GoTo jump showerror: MsgBox Err.Description With dbs If .State = adStateOpen Then .Close End If .Provider = "Microsoft.Jet.OLEDB.4.0&qu