可以用此做VB的实训 PublicClassForm8 PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click Dimf5AsNewForm5 Module1.db() conn.Open() ds.Clear() cmd.CommandText="selectsno,passwordfromstu" da.Se