主题：连接的代码怎么写，高手帮一下

Dim cn As Connection
Dim server As String
Dim mima As String
server=Forms("系统连接").Controls("TextBox1").text
mima=Forms("系统连接").Controls("TextBox2").text
Connections.Add("mf","SQLOLEDB.1;Password=" & mima & ";Persist Security Info=True;User ID=sa;Initial Catalog=mf;Data Source=" & server)
cn = Connections("mf")

这个代码运行出问题的几种情况无非就是以下几种：

1. 服务器地址是否正确

2. 服务器的密码是否正确

3. 服务器上是否有mf这个数据库

4. 网络连接是否通畅

你对照检查一下就好了