Visual Basic - Base de datos rebelde

No consigo enlazar con la base de datos, me da error 13, la ruta esta bien y el campo usuarios de la bd es de tipo texto. A ver si alguien me puede ayudar. Gracias de antemano.

Global Usuario As String
------
Dim dbsNombre As String
Dim dbsUser As Database
Dim rstUsuario As Recordset
Set dbsUser = OpenDatabase("\\tre012\comun\qi\avisos\user.mdb")
Set rstUsuario = dbsUser.OpenRecordset("Users", dbOpenDynaset)
Label4.Caption = Usuario
dbsNombre = dbsUsuario!Usuarios
If Usuario = dbsNombre Then

Else

End If

Novatillo, te recomiendo que uses ADO no DAO ya que es + facil manejarlo... a ver te doy estas lineas para conectarte y abras tu tabla... esta as:

Dim cn_Conexion as ADODB.Connection
Set cn_Conexion = New ADODB.Connerction
cn_Conexion.ConnectionString _
"PROVIDER=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & sRutaBDAccess & ";"
cn_Conexion.Open
'Hasta aqui ya te conectaste.
'Ahora es momento de abrir una tabla lo q se conoce como recordset y es de esta forma:

Dim rst_Tabla as ADODB.Recordset
Set rst_Tabla = New ADODB.Recordset
rst_Tabla.Open "Select * from TuTabla", cn_Conexion, adOpenDynamic
'Ahora es momento de evaluar si hay registro o no?
If rst_Tabla.Eof then
'Tus instrucciones cuando no hay registros
Else
'Tus instrucciones cuando hay registros
End if

'Y no te olvides de liberar la memoria, con la sgte linea:
Set rst_Tabla = Nothing

Suerte tio.... espero te sirva

Muchas gracias Unomásnomás, me ha servido de mucho, ahora ya funciona.