FILL()语句的错误，但不知道错在哪儿了？

FILL()语句的错误，但不知道错在哪儿了？
下面是代码：
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
OleDbDataAdapter1.SelectCommand.Parameters(0).Value = TextBox1.Text
DataSet11.Clear()
OleDbDataAdapter1.Fill(DataSet11)
showposition()
End Sub
我按下BUTTON5他就会提示错误，指定下面一行
OleDbDataAdapter1.Fill(DataSet11)

显示错误信息如下：
未处理的“System.Data.OleDb.OleDbException”类型的异常出现在 system.data.dll 中。

dim ds as New DataSet1

OleDbDataAdapter1.Fill(ds,"tablename")

[此贴子已经被作者于2006-4-16 9:34:57编辑过]