ADOCn.Open("0567_SQL_750_REPORTS", "sa", "sa")
ADOCmd.ActiveConnection = ADOCn
Set ADORs.ActiveConnection = ADOCn
ConStr = "INSERT INTO Reports (rptnum1, rptnum2, rptpages, rptcost) VALUES ('"
ConStr = "INSERT INTO Reports (rptnum1, rptnum2, rptpages, rptcost) VALUES ('"
ADOCmd.CommandText = ConStr