求助~代码出错

我把ACCESS数据库,转为SQL2000后就出现以下错误了!

Private Sub 列表36_AfterUpdate()
    Dim Rst As Recordset
    Set Rst = CurrentDb().OpenRecordset("tabRight")
    Rst.Index = "PrimaryKey"  '<----------------------这里报错,说:行运时错误'3251':这种对象类型不支持该操作.请问老师用什么代码替换呢
    Rst.Seek "=", Me.列表38, Me.列表36
    If Rst.NoMatch Then
        Me.复选53 = False
        Me.复选56 = False
    Else
        If Rst![Right] = 1 Then
            Me.复选53 = True
            Me.复选56 = False
        Else
            If Rst![Right] = 2 Then
                Me.复选53 = False
                Me.复选56 = True
            Else
                Me.复选53 = False
                Me.复选56 = False
            End If
        End If
    End If
End Sub

在些先谢过...