我现在用的是Access数据库，目前用以下方式连接，虽然也是一知半解，但用的还好[img=http://forum.][/img]

    Set Cnn = CreateObject("ADODB.Connection")
    With Cnn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Open DBFullName

    Set NewRecorders = CreateObject("ADODB.Recordset")
    NewRecorders.CursorLocation = 3     
    NewRecorders.ActiveConnection =Cnn

    NewRecorders.Open Source:=SQLtxt, CursorType:=2, LockType:=2, Options:=1

请问，如何改成连接SQL server数据库的方法啊？谢谢！