勇士的信仰副本:急~~！ asp.net的高手请进！

<%@import namespace=system.data.oledb%>
<%@import namespace=system.data%>
<form id="F1" runat="server">
请输入所要查询的数据：
<input type="text" runat="server" id="text1">
<button id="B1" runat="server" onserverclick="B1_click">查询</button>
</form>

<span id="Sp1" runat="server"/>
<script language="vb" runat="server">
sub B1_click(sender as object,e as eventargs)
dim strConStr as string="provider=microsoft.jet.oledb.4.0;" & "data source=F:\starry\Members.mdb"
dim strComStr as string="select * from Members"
dim dscA as oledbdataadapter=new oledbdataadapter(strComStr,strConStr)
dim dsDataSet as dataset=New dataset()
dscA.FillDataSet(dsDataSet ,"Members")
dim dtTable as datatable=dsdataset.tables("Members")
dtTable.defaultview.sort="userID"
dim shtr as short
shtr=dtTable.defaultview.find(text1.value)
if shtr=-1 then
sp1.innertext="没找到您所办入的数据"
else
sp1.innerText="您所要找的资料在第" & shtr.tostring & "条记录"
end if
end sub
</script>

请问高手们，哪里有错误？（18行，怎么改？）