求解……说是未找到方法和数据来源。。。

Private Sub Combo11_Click(Index As Integer)
Dim conn As New ADODB.Connection
Dim rs2 As New ADODB.Recordset
ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\交通设施.Mdb"
conn.Open ConStr
conn.CursorLocation = adUseServer
rs2.Open "select * from [facilities]", cn, adOpenKeyset, adLockPessimistic
rs2.MoveFirst
While Not rs2.EOF
Combo12.AddItem rs.Fields(Combo11.Text).Value
rs2.MoveNext
Wend
End Sub