dim adocn as new adodb.connection
adocn.open "dsn=POS","sa",""
adocn.close