Private Sub Form_Load()Set g_ws = DBEngine.Workspaces(0)Set g_db = g_ws.OpenDatabase(App.Path + "\gqn.mdb")End Sub怎么用啊?