dim cmicDt as new DataTable
dim cmicCmd as SqlCommand("GetDateMoney",tempCn)'tempCn是SQLConnection实例
cmicCmd.Parameters.Add(new SqlParameter("@StartTime",SqlDbType.DateTime))
cmicCmd.Parameters("@StartTime").Value=tempStartTime'tempStartTime参数值
cmicCmd.Parameters.Add(new SqlParameter("@EndTime",SqlDbType.DateTime))
cmicCmd.Parameters("@EndTime").Value=tempEndTime'empEndTime参数值
dim cmicDa as new SqlDataAdapter(cmicCmd)