Set cnn=createobject("adodb.connection")
Set objrsa=createobject("adodb.recordset")
Dim strsql
cnn.open "rovider=SQLOLEDB.1assword=123456ersist Security Info=True;User ID=sa;Initial Catalog=NSMC53;Data Source=192.168.168.233"
strsql="select count(*) from NSMC53.dbo.NSMC_tb_Unit"