Question

rs.Open SQL, cn, 1, 1 至少一个参数没有指定

Private Sub addLIST()

Me.picLOAD.Left = (Me.ScaleWidth + Me.PicLEFT.Width - Me.picLOAD.Width) / 2
Me.picLOAD.Top = Me.ScaleHeight / 2 - Me.picLOAD.Height
Me.picLOAD.Visible = True
DoEvents '释放控制权

Me.ListView1.ListItems.Clear
Call OpenConn
rs.Open SQL, cn, 1, 1
Do While Not rs.EOF
If rs!性别 = "男" Then tb = 1
If rs!性别 = "女" Then tb = 2
Set addLVW = Me.ListView1.ListItems.Add(, , rs!编号, , tb)
addLVW.SubItems(1) = rs!ZGID
addLVW.SubItems(2) = rs!姓名
addLVW.SubItems(3) = rs!性别
addLVW.SubItems(4) = rs!出生日期
addLVW.SubItems(5) = rs!联系电话
addLVW.SubItems(6) = rs!办案单位
addLVW.SubItems(7) = rs!入库时间
rs.MoveNext
Loop
Me.Label10.Caption = rs.RecordCount & " 人"
Call CloseConn

Me.picLOAD.Visible = False
End Sub

Answer 1

不知道你的cnn和sql是什么。以ADO为例：
dim cnn as new adodb.connection
dim rs as new adodb.recordset
dim sql as string
cnn=currentproject.connection
‘这里是用access数据库连接，请修改为你的适当数据连接字符串。
sql="select * from 表1"
’这里修改为你的适当的sql语句。
rs.open sql,cnn,1,1
接下来就跟你的一样了，不再赘述。

追问

定义在了conn（conn.bas）模块
Option Explicit
Public cn As New adodb.Connection '连接
Public rs As New adodb.Recordset '记录集
Dim ret As Long
Dim buff As String
Dim SQL1 As String
Dim sql As String
是不是？

Answer 2

查一下你定义了SQL了吗？cn又是什么？

追问

rs.Open SQL, cn, 1, 1这句报错。定义SQL具体什么位置？纯菜鸟。

追答

当然是在rs.Open SQL, cn, 1, 1前面，你要执行什么，就定义什么。从下文看，应该是查询，那就定义查询语句。如：
SQL = "select * from ........"

Answer 3

你的 openconn 和closeconn 在哪里定义了?那里面应该写有连接数据库的代码

追问

Dim SQL As String
Dim addLVW As ListItem

Private Sub Check1_Click()
Me.ListView1.Gridlines = Me.Check1.Value
End Sub
窗体代码第一段。

追答

不是这个,你没有连接数据库的代码吗?比如
conn.connectionstring="dsn=;uid=;pwd="