VB代码求救，出现问题啦

数据成员我设置的数据库里已经有了啊，不知道什么回事，求解：
下面的代码编译时出现错误，红的标记
Private Sub cmdAMod_Click(Index As Integer)
'Open the add/edit form. Display current record values in form if modifying.
    On Error Resume Next
        With frmssAE
            .AddState = Index  // 提示编译错误：未找到方法与数据成员
            .OldID = RS.Fields(0)
            If Index = 0 Then
                .msdID.Text = RS.Fields(0)
                .txt1.Text = RS.Fields(0)
                .txt2.Text = RS.Fields(1)
                .txt3.Text = RS.Fields(2)
                .txt4.Text = RS.Fields(3)
            End If
            .Show vbModal
        End With
        cmdRefresh_Click
        DisplayRecords
End Sub