VB6链接sqlserver数据库字符串代码

strConnStr = "PROVIDER=SQLOLEDB.1;Persist Security Info=True;User ID=username;Password=paddword;Initial Catalog=db_name;Data Source=sqlserver_name;Connect Timeout=15"

新建类似asp的rs的方法，vb开发用new：

Dim mrc As ADODB.Recordset
set mrc=new ADODB.Recordset