Question

VB的实时错误‘-2147217904（80040e10）’至少一个参数没有被指定值 代码如下

Private Sub Form_Load()
Call GetData("select * from hygl order by id desc")
End Sub

Function GetData(sql)
MSFlexGrid1.Clear
mycon.Open
Dim rs As New ADODB.Recordset
rs.Open sql, mycon, 1, 1
If rs.EOF Then
Else
Dim i As Integer
With MSFlexGrid1
i = 1
.Rows = 1
Do While Not rs.EOF
i = i + 1
.Rows = i·
.TextMatrix(i - 1, 1) = rs("ID")
.TextArray(0) = ""
.TextMatrix(i - 1, 2) = rs("cp")
.TextMatrix(i - 1, 3) = rs("fy")
.TextMatrix(i - 1, 4) = rs("kssj")
.TextMatrix(i - 1, 5) = rs("jzsj")

.TextArray(1) = "编号"

.TextArray(2) = "车牌"
.TextArray(3) = "费用"
.TextArray(4) = "开始时间"
.TextArray(5) = "截止时间"

.ColWidth(0) = 300
.ColWidth(1) = 600
.ColWidth(2) = 1200
.ColWidth(3) = 1200
.ColWidth(4) = 1200
.ColWidth(5) = 1200

rs.MoveNext
Loop
End With
rs.Close
End If
mycon.Close
End Function
哪位大哥帮帮忙，哪里错了啊

若以下回答无法解决问题，邀请你更新回答

Answer 1

mycon.Open 后面的参数呢？

追问

那错了吗？我的其他程序也是那样写得都没错啊

追答

那你的数据库在哪打开的呢？数据库的路径、名称呢？

追问

数据库在第一个Form1中打开的
connstring = "provider=Microsoft.Jet.OLEDB.4.0;Data source=" & App.Path & "/tcsf.mdb" & " ;Jet OlEDB:"
名称是tcsf.mdb 路径是F:\程序\tcsf.mdb