Visual Basic - Conectar un sistema en red por odbc

Hola, necesito ayuda, lo que pasa es que al momento de conectar el sistema en red me marca este error, uso ado y me conecto con odbc y el sistema está en hecho en visual basic:
mensaje de error: Odbc no se abrio o esta ocupado

Pone esta funcion en un modulo o en el form que tiene que conectar FUNCIONA PERFECTO

Public Sub conectar()
Dim proveedor As String
Set cnBase = New Connection
On Error Resume Next

proveedor = "Microsoft.jet.OLEDB.4.0" 'para access 2000
'proveedor = "Microsoft.jet.OLEDB.3.51" para access 97 El de sql server averigualo
cnBase.ConnectionString = "DSN=nombre delDSN;UID=Admin;PWD=passworedBase (si tiene)"
cnBase.Open
If (Err.Number <> 0) Then
MsgBox "Error: " + Err.Description
End
End If

End Sub