Dim cmd As new SQLCommand cmd.ConnectionName = "数据源名称" cmd.CommandText = "GetOrders"'指定存储过程名 cmd.StoredProcedure = True'表示CommandText内容不是标准的SQL语句,而是存储过程名 cmd.Parameters.Add("@客户",e.form.controls("textbox1").text) Dim dt AsDataTable = cmd.ExecuteReader