dim CN as new ADODB.Connection
CN.ConnectionString = "Provider=SQLOLEDB.1;User ID=sa;Password=;Data Source=192.168.12.1;Initial Catalog=数据库名"
CN.CursorLocation = adUseClient
CN.CommandTimeout = 300
CN.Open