con.Open()
Dim cmd As OleDbCommand = New OleDbCommand("SP_Insertstall", con)
cmd.CommandType = CommandType.StoredProcedure
Dim parameters As IDataParameter() = { _
New OleDbParameter("sp_ckbm", OleDbType.VarChar, 10), _
New OleDbParameter("sp_hpbm", OleDbType.VarChar, 15), _
New OleDbParameter("sp_hpmc", OleDbType.VarChar, 20), _
New OleDbParameter("sp_BZ", OleDbType.VarChar, 100)}
parameters(0).Value = DrpListstorehouse.SelectedItem.Value
parameters(2).Value = NewStallName.Text
parameters(1).Value = NewStallNumber.Text
parameters(3).Value = Newbeizhu.Text
Dim parameter As OleDbParameter
For Each parameter In parameters
cmd.Parameters.Add(parameter)
Next
Dim result As New OleDbParameter("sp_result", OleDbType.Integer)
result.Direction = ParameterDirection.Output
cmd.Parameters.Add(result)
cmd.ExecuteNonQuery()
con.Close()
If result.Value = -1 Then
' If Add returned -1, the sort was already present
AddNewError.Visible = True
End If