Set cn = New ADODB.Connection str="Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=databasename;Data Source=192.168.0.1" cn.Open str ...... cn.close set cn=nothing
