cmd.CommandText = "Select status From ACCOUNTS_PARTY Where id = '" & id & "'"
改成
cmd.CommandText = "Select * From ACCOUNTS_PARTY Where id = '" & id & "'"