学生信息管理系统——出现str2$变量未定义问题

在敲学生的时候发现了一个问题，按照书上的代码敲完之后运行程序，发现变量未定义的情况，对应的代码位置是

Private Sub cmdDelete_Click()
    Dim str2$
    '记下当前记录位置
    myBookmark = mrc.Bookmark
    '提示是否删除
    str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")
    '判断按钮类型
    If str2$ = vbOK Then
        '移动到数据集下一条记录
        mrc.MoveNext
                '判断数据集对象是否为空
                If mrc.EOF Then
                    '移动到数据集的第一条记录
                    mrc.MoveFirst
                    '记载当前记录的位置
                    myBookmark = mrc.Bookmark
                    '移动到最后一条记录
                    mrc.MoveLast
                    '删除记录
                    mrc.Delete
                    mrc.Bookmark = myBookmark
                    '调用函数显示数据
                    Call viewData
                Else
                    '记载当前位置
                    myBookmark = mrc.Bookmark
                    '移动到前一条记录
                    mrc.MovePrevious
                    '删除记录
                    mrc.Delete
                    '回到原来位置
                    mrc.Bookmark = myBookmark
                    '调用函数显示数据
                    Call viewData
                End If
    Else
      mrc.Bookmark = myBookmark
      Call viewData
    End If
End Sub

在提示了变量未定义后，我最开始在代码前面加上的是dim str2$ as string ，提示了缺少：语句结束

删除了后面的as string后就可以正常运行了。