请问vb在MSFLexGrid中添加数据，为什么显示至少一个参数没有被指定

我的程序是这样的
Private Sub addbookstyle_Click()
Dim rs As New ADODB.Recordset
Dim sql As String
Dim sql2 As String
Dim str As String
str = addbookTypeNO.Text
sql = "select * from bookType"
sql2 = "select booktypeno from bookType where bootypeno='" & str & "'"
If Trim(addbookTypeNO.Text) = "" Or Trim(addbookTypeName.Text) = "" Or Trim(permitdays.Text) = "" Or Trim(bookTypeOther.Text) = "" Then
MsgBox "录入信息不能为空！", vbOKOnly
Else
Set rs = TransactSQL(sql2)
If rs.EOF = False Then
MsgBox "该类别已经存在！", vbOKOnly
Else
Set rs = TransactSQL(sql)
rs.AddNew
rs.Fields(0) = Trim(addbookTypeNO.Text)
rs.Fields(1) = Trim(addbookTypeName.Text)
rs.Fields(2) = Trim(permitdays.Text)
rs.Fields(3) = Trim(bookTypeOther.Text)
rs.Update
MsgBox "书籍类型添加成功！", vbOKOnly
Call

vb MSFlexGrid控件 vb msflexgrid行号 VB 6.0 中的“DATE GRID”与“MSFlexGrid”控件在哪里？ vb 在msflexgrid同时显示多个表中的数据怎么实现？ 关于vb中msflexgrid显示 在vb中如何使 MSFlexGrid内可以输入内容？谢谢！ vb 里data控件与MsflexGrid怎么实现查询,在保存， vb中msflexgrid是个什么控件? VB中msflexgrid如何加鼠标滚动？ vb msflexgrid如何按列排序