帮我看下我的这个代码怎么连接SQLSERVER

这个是别人给我的VB模块,我想连接我的sqlserver数据库,数据库文件是data.mdf在哪修改的连接到数据库啊

Public Function ConnectString() _
As String
'returns a DB ConnectString
ConnectString = "FileDSN=ecardinfo.dsn;UID=sa;PWD="
End Function
Public Function ExecuteSQL(ByVal SQL _
As String, MsgString As String) _
As ADODB.Recordset
'executes SQL and returns Recordset
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String

On Error GoTo ExecuteSQL_Error

sTokens = Split(SQL)
Set cnn = New ADODB.Connection
cnn.Open ConnectString
If InStr("INSERT,DELETE,UPDATE", _
UCase$(sTokens(0))) Then
cnn.Execute SQL
MsgString = sTokens(0) & _
" query successful"
Else
Set rst = New ADODB.Recordset
rst.Open Trim$(SQL), cnn, _
adOpenKeyset, _
a

请大家帮我看下这个代码的图片连接是哪里啊？ 大家帮我看下这个代码！ 帮我看下这个代码如何修改！ 帮我看下这个ASP分页代码 谁4帮我看下这个asp代码 帮我看下这个登陆界面的代码咯?刚提了，怎么没看到哪>?? 大家帮我看下这个窗体大小设置的代码? 麻烦大家帮我看下我写的这个java连接数据库类哪错了 帮我看下这个网站怎么搞的 帮我看下我的提交代码为何不对