Dim st As String
Dim ds As DataSet
Dim arParms() As SqlParameter = New SqlParameter(0) {}
arParms(0) = New SqlParameter("@searchtitle", SqlDbType.VarChar, 20)
arParms(0).Direction = ParameterDirection.Input
arParms(0).Value = "江苏"
st = "server=(local);uid=sa;pwd=sa;database=zb"
ds = ExecutePro.ExecuteDataset(st, CommandType.StoredProcedure, "searchtotal", arParms)
DataGrid1.DataSource = ds
DataGrid1.DataBind()