vb至少1个参数没有被指定

Question

Private Sub SSTab1_Click(PreviousTab As Integer)
Dim str_sql As String
Dim rds_jieyue As New Recordset
    If SSTab1.Tab = 2 Then
        If rds_jieyue.State = adStateOpen Then rds_jieyue.Close
        str_sql = "SELECT 读者.读者编号, 读者.读者姓名, 图书借阅.图书编号, 图书.书名, 图书借阅.借书日期 FROM 图书 RIGHT JOIN (图书借阅 LEFT JOIN 读者 ON 图书借阅.读者编号 = 读者.读者编号) ON 图书.图书编号 = 图书借阅.读者编号"
        rds_jieyue.Open str_sql, conn, adOpenForwardOnly, adLockOptimistic, 1
        Set MSHFlexGrid1.DataSource = rds_jieyue
        MSHFlexGrid1.TextMatrix(0, 0) = "读者编号"
        MSHFlexGrid1.TextMatrix(0, 1) = "读者姓名"
        MSHFlexGrid1.TextMatrix(0, 2) = "图书编号"
        MSHFlexGrid1.TextMatrix(0, 3) = "书名"
        MSHFlexGrid1.TextMatrix(0, 4) = "借书时间"
    End If
End Sub
上面这段代码rds_jieyue.Open str_sql, conn, adOpenForwardOnly, adLockOptimistic, 1出现至少1个参数没有被指定的问题，我字段都声明了啊怎么会出这个问题的？还是上面查询语句的问题？请高手解答~~谢谢了先！

Answer 1

debug.print  str_sql自己检测然后conn, adOpenForwardOnly, adLockOptimistic, 1  后面是不需要这个1的

Answer 2

SQL 语句的问题！ 
SQL 语句还是别弄得太复杂的好。

Answer 3

   rds_jieyue.Open str_sql, conn, adOpenForwardOnly, adLockOptimistic, 1 中
多了一个参数,1了导致错误,去掉后就好了