datagrid 显示问题

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        If Application("编号") Is Nothing Or Application("回贴编号") Is Nothing Then
            Dim fs As StreamReader
            fs = File.OpenText(Server.MapPath("/liuyan/最大编号.txt"))
            Application.Lock()
            Application("编号") = Val(fs.ReadLine())
            Application("回贴编号") = Val(fs.ReadLine())
            Application.UnLock()
            fs.Close()
        End If
        If Session("当前页号") Is Nothing Then
            Session("当前页号") = 0
        End If
        If Not IsPostBack Then
            Session("where子句") = ""
            留言表显示("select * from 留言表 " + Session("where子句") + "order by 编号  desc,回贴编号", Session("当前页号"))
        End If
    End Sub
    Private Sub 留言表显示(ByVal SQL命令 As String, ByVal 新页号 As Integer)
        Dim con As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("bbs.mdb")
        Dim adpt As New OleDbDataAdapter(SQL命令, con)
        Dim ds As New DataSet
        adpt.Fill(ds, "留言表")
        DataGrid1.DataSource = ds
        DataGrid1.CurrentPageIndex = 新页号
        DataGrid1.DataBind()
    End Sub提示错误为    
至少一个参数没有被指定值。 
说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。 异常详细信息: System.Data.OleDb.OleDbException: 至少一个参数没有被指定值。源错误: 
行 49：         Dim adpt As New OleDbDataAdapter(SQL命令, con)
行 50：         Dim ds As New DataSet
行 51：         adpt.Fill(ds, "留言表")
行 52：         DataGrid1.DataSource = ds
行 53：         DataGrid1.CurrentPageIndex = 新页号
 源文件: C:\Inetpub\wwwroot\liuyan\WebForm1.aspx.vb    行: 51