Visual Basic - problemas en la red

La tabla es acceso_modulos con los campos rut y modulos, los diferentes tipos de accesos
estan la lista “modificar_usuario”, para modificar los accesos de un usuario a cierto sistema
tengo el siguiente codigo :
With motel.rstabla_modulos
If (.State = 1) Then
.Close
End If
.Source = "SELECT * FROM acceso_modulos " + _
"WHERE acceso_modulos.rut='" + str_rut + "'"
.Open , , , adLockOptimistic
For indice = 1 To modificar_usuario.lista_modulo.ListItems.Count
If (modificar_usuario.lista_modulo.ListItems(indice).Checked = True) Then
.AddNew
.Fields(0) = str_rut
.Fields(1) = modificar_usuario.lista_modulo.ListItems.Item(indice).Text
.Update
End If
Next
End With
Cuando lo ejecuto en la PC en que esta la base de datos no tengo ningun problema, pero cuando
lo ejecuto en otro PC (RED), se pone lento y luego me sale el siguiente error –2147467259(80004005),
por favor si alguien me pudiera ayudar ha descifrar el problema, gracias.