刷新联接sql server200后，不能存储数据，请指教

qdjqx

用MDB与SQL SERVER2000联接时，刷新联接表后，通过联接表只能浏览数据，不能存储数据。代码如下，请指教，急。


这段代码是微软工程师发表的。


Function relink()
    Dim db As Database
    Dim tbl As TableDef
    Dim a As String
    Dim b As String
    Dim d As String
   
    Set db = CurrentDb


    For Each tbl In db.TableDefs
        If tbl.Attributes = 536870912 Then
            tbl.Connect = "FILEDSN=d:\demo\steel.dsn;UID=" & a & "WD=" & b & ";WSID=;DATABASE=" & d & ";Network=DBMSSOCN"
'
            tbl.Attributes = dbAttachSavePWD
            tbl.RefreshLink
        End If
    Next


End Function