vb与数据库连接及显示

'*************以下是窗体代码************
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sq As String

Private Sub Command1_Click()
On Error Resume Next
Dim Fliv As ListItem

For i = ListView1.ListItems.Count To 1 Step -1 '每次查询之前先删除全部内容
ListView1.ListItems.Remove (i)
Next i

cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & App.Path & "\Data.mdb"
sq = "select * from 基本情况 order by 学生编号"
rs.Open sq, cn, adOpenKeyset, adLockOptimistic

For i = 1 To rs.RecordCount
Set Fliv = ListView1.ListItems.Add()
Fliv.Text = rs.Fields("学生编号")
Fliv.SubItems(1) = rs.Fields("姓名")
Fliv.SubItems(2) = rs.Fields("性别")
Fliv.SubItems(3) = rs.Fields("民族")
Fliv.SubItems(4) = rs.Fields("年龄")
Fl