Visual Basic - Excesivo tiempo de espera con una BD Acces

Hola,
he creado un programa que se conecta con ADODC i ADODB i me tarda mucho tiempo en conectarse con el programa, cual es el metodo mas idoneo para conectar Visual Basic i Acces? Tambien quiero aclarar que a parte de adodc cree unas variables de esta manera en el Form Load:

List1.Clear
Dim cad As String
Dim Miconexion As ADODB.Connection
Dim rs2 As ADODB.Recordset
Set Miconexion = New ADODB.Connection
Set rs2 = New ADODB.Recordset
Miconexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\server1\procaot\procaot.mdb;Persist Security Info=False;"
Miconexion.Open
cad = combo1.Text
cad = "select a.ref from artic a where a.ubi like '" & cad & "'"
rs2.Open cad, Miconexion, adOpenDynamic, adLockOptimistic
While Not rs2.EOF
List1.AddItem rs2!ref
If rs2.BOF Then
MsgBox " Estic al principi del recordset "
End If
If rs2.EOF Then
MsgBox " Estic al final del recordset "
End If
rs2.MoveNext
Wend
rs2.Requery
Me.Refresh
rs2.Close
Miconexion.Close

Haber que os parece.

Gracias por todo.