|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
有一个excel+access的学籍管理系统,office 2003的,我现在在office2019下运行,运行到:For i = 1 To rs.RecordCount时,提示编译错误:类型不匹配
求各位高手指点一下
Private Sub UserForm_Initialize()
Dim i As Integer
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & ThisWorkbook.Path & "\xjcj.mdb"
rs.Open "select * from 用户数据表 ", con, adOpenKeyset, adLockOptimistic
For i = 1 To rs.RecordCount
UserForm1.ComboBox1.AddItem rs.Fields("用户名")
rs.MoveNext
Next i
rs.Close
con.Close
Set rs = Nothing
Set con = Nothing
End Sub
|
|