Dim 用户帐号 As String
用户帐号 = 输入帐号名.Text

Dim strSelectString As String
strSelectString = "select * from 管理员 where 管理员帐号 = '" & 用户帐号 & "'"

Dim dc As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("教学计划.mdb"))

Dim da As OleDbDataAdapter
da = New OleDbDataAdapter(strSelectString, dc)

Dim ds As DataSet
ds = New DataSet

da.Fill(ds, "result")

显示是:

至少一个参数没有被指定值。

说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。

异常详细信息: System.Data.OleDb.OleDbException: 至少一个参数没有被指定值。

源错误:

行 59：             ds = New DataSet
行 60： 
行 61：             da.Fill(ds, "result")
行 62： 
行 63：             Dim tb As Data.DataTable

仔细查点一下SELECT语句

查过了啊 应该没有问题的 但就是提示一个参数没有被指定值 哪位教教我啊

解决问题了 谢谢adair