VB接入不同版本的Access

麻烦各位大神教教小白关于VB接入不同版本的Access的代码区别吧

本人还是高中生，在学校机房写了一个程序。当时接入的是Access2010（x32）版本。程序可以正常运行。但是拿回家在Access2016（x64）版本上就不能使用，显示3706错误

具体代码如下（部分）：

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Form_Load()
conn.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0;DATA Source = " & "学生信息.accdb"
End Sub

Private Sub command1_click()
Dim n As Integer, i As Integer, x As Integer
Dim xm(1 To 56) As String, yj(1 To 56) As Boolean
Dim xh(1 To 56) As Integer
Randomize
conn.Open
Set rs.ActiveConnection = conn
rs.Open "SELECT * FROM 学号", conn, adOpenKeyset, adLockOptimistic

n = 1
i = 1
Do While Not rs.EOF
    xm(i) = rs.Fields("姓名")
    xh(i) = rs.Fields("学号")
    yj(i) = rs.Fields("是否演讲过")
    i = i + 1
    rs.MoveNext
Loop
n = i - 1
x = Int(Rnd() * n) + 1

Do While yj(x)
    x = x Mod n + 1
Loop
i = 1
rs.MoveFirst
Do While i < x
    rs.MoveNext
    i = i + 1
Loop

rs.Fields("是否演讲过") = True
rs.Update
rs.Close
conn.Close
Label1.Caption = xm(x)
Label2.Caption = xh(x)
End Sub

具体是第13行conn.open报错。还有，这个是已经引用过了的。

该代码是在询问老师后形成的，在他的电脑上也可以运行。但是一换电脑系统就不行。烦各位大神帮忙看看，教教我这个小白吧