80分求救：vb连接mssql的问题，解决再补50分！
请教大侠们一个问题我现在要用VB连接一个数据库具体情况如下：一、数据库不是安装的MSSQL数据库，而是别的数据库（考勤系统）软件在安装过程中自行安装的，只有80的文件夹，其中只有管理器。二、需要连接的是该考勤系统所建立的文件夹，如微小（MicroData）系统安装MicroData系统时，他在Program Files文件夹下建立一个Microsoft SQL的文件夹，文件夹里面有两个文件夹，其一为80，其二为MicroData自带的文件夹，比如名字为“Micro$Data”，其内有Binn，DATA等文件夹。三、Micro$Data内含有master数据库以及考勤数据库MicroData.mdf现在我要连接使用MicroData.mdf数据库的数据请问高手们，这个东西应该怎么设定？如果有没有说清楚的地方，我会及时补充。谢谢！
参考答案:1、安装MSSQL或MSDE(需要另外安装企业管理器)，虽然通过运行Binn目录中的服务程序，也可以做为数据库服务器来使用，但是如果默认sa用户有密码已经更改的话，你是无法通过使用原有的服务器程序来连接任何数据库的。如果实在不想安装MSSQL的话，可以到网上找一个免安装绿色版试一下，不过没有企业管理器，你没有办法恢复数据库
2、把MicroData.mdf还原至刚刚安装完成的MSSQL中
3、程序中如下:
设置好ADO的引用
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=lanchong"
cn.CursorLocation = adUseClient
rs.Open "select * from sysdatabases", cn, adOpenDynamic, adLockPessimistic
Set DataGrid1.DataSource = rs
你可以连接到SQL数据库中了，其中连接字符串的部分改成你自己的数据
Provider=SQLOLEDB.1;Password=安装时候选择的密码;Persist Security Info=True;User ID=sa;Initial Catalog=你还原后的数据库名称;Data Source=你的SQL服务器所在机器的机器名或IP