各位兄弟帮帮忙。看看我的这个，为什么总是提醒说“至少一个参数没有被指定值”谢谢了！！！up 给分

<script runat="server">
dim conn as new oledbconnection("provider=microsoft.jet.oledb.4.0; data

source="+server.MapPath("data/fwk.mdb"))

dim objcmd as new oledbdataAdapter

dim ds as new dataset("my")


sub page_load(obj as object, e as eventargs)

dim sql as string
sql=new string("select top 10 fwk_bianhao,fwk_tel,fwk_dizhi,fwk_danwei from fwk order by fwk_bianhao

DESC")

if request("fwk_bianhao")<>"" then
sql=new string("select fwk_bianhao,fwk_tel,fwk_dizhi,fwk_danwei from kehu where fwk_bianhao=" &

request("fwk_bianhao") & " order by fwk_bianhao DESC")
view1.text=request("sort") & ".."
end if

objcmd=new oledbdataAdapter(sql,conn)
filldatagrid()
fillsort()




end sub
'query method
sub query(Sender As Object, e As EventArgs)
if request("select")<>"" and request("keyword")<>"" then
[select].value=request("select")
keyword.value=request("keyword")
elseif keyword.value="" then

exit sub
end if
dim sql as string="select fwk_bianhao,fwk_tel,fwk_dizhi,fwk_danwei from fwk where " & [select].value & "

like '%" & keyword.value &"%'order by fwk_bianhao DESC"

objcmd=new oledbdataAdapter(sql,conn)
filldatagrid()
view1.text="搜索结果："
end sub
sub getdata() ----问题好像就出在这！！帮帮看看

objcmd.fill(ds, "art")
'define primary key
' dim keys() as datacolumn={ds.tables("gb").columns("userid")}
' ds.tables("gb").primarykey=keys'
end sub



sub filldatagrid ----问题好像就出在这！！帮帮看看
ds.clear()'
getdata()

dgdata.datasource=ds
dgdata.datamember="kehu"
dgdata.databind()
end sub


sub fillsort
dim objcmd as new oledbcommand("select * from fwlx",conn)
dim objreader as oledbdatareader

try
objcmd.connection.open()
objreader=objcmd.executereader()
catch ex as exception
view1.text=ex.message
end try

sort.datasource=objreader
sort.databind()

objreader.close
objcmd.connection.close()
end sub

sub dgdata_pageindexChanged(obj as object,e as datagridpagechangedeventargs)
dgdata.currentpageindex=e.newPageindex
dgdata.databind()
filldatagrid()
end sub