主题：帮我看看，错在哪里啊

With Tables("面料信息表").Current '引用当前行

    If .IsNull("面料名称") = False Then '如果已经输入面料名称

        Dim Result As DialogResult

        Result = MessageBox.Show("你确定要删除这个面料的信息吗?如果删除将是不可恢复的!","删除",MessageBoxButtons.YesNo,MessageBoxIcon.Question)

        If Result = DialogResult.Yes Then

            .Locked = False '那么解锁此行

            .Delete

        Else

            MessageBox.Show("操作时请小心,当心误操作,以免造成不必要的麻烦.","提示")

        End If

    Else

        If .IsNull("面料名称") = True Then '如果已经输入面料名称

            .Locked = False '那么解锁此行

            .Delete

        End If

    End If

End With