vb中出现未找到方法和数据成员错误

Public Sub SetOpenStyle(str As String)
'设置窗口打开方式： F -- 查询; I -- 录入; U -- 更新

    strMode = str
    cmdNew.Enabled = False
    cmdFind.Enabled = False
    cmdChang.Enabled = False
    cmdDelete.Enabled = False
    cmdSave.Enabled = False
    Male.Enabled = False
    Female.Enabled = False
    txtAge.Enabled = False
    txtDept.Enabled = False
    If str = "F" Then
        cmdFind.Enabled = True
    ElseIf str = "I" Then
        cmdNew.Enabled = True
        cmdSave.Enabled = True
        txtSno.Enabled = False
        txtSname.Enabled = False
    ElseIf str = "U" Then
        cmdFind.Enabled = True
      
    End If
End Sub

设置断点调试一下，看看运行到那一条语句报错。

cmdNew是不是没定义，或者cmdNew类型定义不正确。