帮我看看，错在哪里啊 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

With Tables("面料信息表").Current '引用当前行
    If .IsNull("面料名称") = False Then '如果已经输入面料名称
        MessageBox.Show("你确定要删除这个面料的信息吗?如果删除将是不可恢复的!","删除",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
        Dim Result As DialogResult
        If Result = DialogResult.Yes Then
            .Locked = False '那么解锁此行
            Tables("面料信息表").Current.Delete
        Else
            MessageBox.Show("操作时请小心,当心误操作,以免造成不必要的麻烦.","提示")

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

            .Locked = False '那么解锁此行
            Tables("面料信息表").Current.Delete
        End If
    End If
End With

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