存储过程：

USE [WeMeet]
GO
/****** Object:  StoredProcedure [dbo].[usp_Delete]    Script Date: 06/15/2020 22:10:02 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

ALTER proc [dbo].[usp_Delete]  

@name char(50)

as begin
declare @err int
delete from Player where pName=@name
set @err=@@ERROR
if(@err!=0)return -1
return 0
end

VB代码

Private Sub Command1_Click()
  Dim cmd As String, cc As Long
  On Error GoTo ErrorHandler
   If MsgBox("真的要删除玩家'" & Trim(DataGrid1.Columns(0).Text) & '吗？", vbYesNo, "信息") <> vbYes Then Exit Sub

    If DataGrid1.Row < 0 Then Exit Sub

    cmd = " begin tran "
    cmd = cmd & " declare @x int, @name char(50)"
    cmd = cmd & " set nocount on "
    cmd = cmd & " SET @name='" & DataGrid1.Columns(0) & "' "
    cmd = cmd & " Exec @x=usp_Delete @name "
    cmd = cmd & " select @x X"
    cmd = cmd & " if @x=0 commit else rollback "

    Adodc1.RecordSource = cmd
    Adodc1.Refresh
    cc = Val(Adodc1.Recordset.Fields(0))
    If cc = 0 Then
       Adodc1.Refresh: DataGrid1.Refresh
       MsgBox "玩家信息删除成功！", , "提示": Exit Sub
    End If

P0: MsgBox "发生未知错误，调用失败！", vbOKOnly: Exit Sub
ErrorHandler: MsgBox (Err.Description & Chr(13) & Chr(10))
    Resume P0
End Sub
Private Sub Command2_Click()
    Unload Me
    aHome.Show vbModal
End Sub

发现问题了
1.Player表中的pName（主键）是其他表的外键，要删除Player的记录要先删除其它表中pName对应的记录
2.用两个ADOC，一个用来显示datagrid 另一个接受cmd命名。