请问怎么样才能提高vb与access查询的效率啊？？？急用。请指教

请问怎么样才能提高vb与access查询的效率啊？？？急用。请指教
还有修改的
我要连接两个数据库
我的代码如下
Private Sub data_Click()
Dim i As Integer
Dim strsql As String
Dim sstring As String
On Error Resume Next
sstring = "select * from webo "
MsgBox sstring
If rst.State = adStateClosed Then
    rst.Open sstring, cn, adOpenKeyset, adLockPessimistic, adCmdText
 End If
MsgBox rst.Fields(0)
Do Until rst.EOF
     strsql = "select * from Web where PAGE like'%" & Trim(rst.Fields(0)) & "%'"
      If rs.State = adStateClosed Then
         rs.Open strsql, con, adOpenKeyset, adLockPessimistic, adCmdText
          End If
       For i = 0 To rs.RecordCount
        rs.Fields(2) = rst.Fields(0)
        rs.Update
        rs.MoveNext
        Next
     rst.MoveNext
    rs.Close
Loop
 rst.Close
 Set rst = Nothing
 rs.Close
 Set rs = Nothing
 con.Close
 Set con = Nothing
         
    
End Sub
模块中的代码
Option Explicit
Public sstring As String
Public cn As New ADODB.Connection
Public con As New ADODB.Connection
Public rs As New ADODB.Recordset
Public rst As New ADODB.Recordset
'//SUB Main启动
Sub main()
    con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\数据\db4.mdb;Persist Security Info=False"
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\主站查询\try.mdb;Persist Security Info=False"
    con.Open
    cn.Open
    Form1.Show
    
End Sub