高手们帮小弟看这几行代码，DSN问题。

Question

Private Sub Command1_Click()
Dim sDsn As New Dsn
    Dim bRet As Boolean
    bRet = sDsn.CreateDSN("ddd", "sql server", "mysvr", "master", "sa", "123", "just a test", True, "")
    MsgBox bRet
Set sDsn = Nothing
End Sub‘结果 bRet=false，不能创建dsn，请问为什么？谢谢。
 '另外，如果连接的是本机上的SQL SERVER，“mysvr”能否“改为“（local)”？

Answer 1

用ADO可以不用DSNOption Explicit'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim cn As New ADODB.Connection
Dim rs As New ADODB.RecordsetPrivate Sub Combo1_Click()
    rs.Open "SELECT * FROM TABLENAME WHERE NAME = '" & txtName.Text & "'", cn, adOpenDynamic, adLockOptimistic
    If Not rs.EOF Then
        Label1.Caption = rs!ID
        Label2.Caption = rs!Memo
    End If
End SubPrivate Sub Form_Load()
    cn.ConnectionString = ""
    cn.Open
    '查询字符串可以上这里查
    'http://www.connectionstrings.com/
End Sub

Answer 2

哈哈，你呀苯了吧，，，，可以采用拷贝文件的形式呀，先做好的dns的文件，放在程序目录下，。然后直接拷贝。。！！