Visual Basic - Error SQL / ADO, Ayuda urgente

Estoy trabajando con SQL server 7.0 en mi desktop, con ADO, pero cuando trato de hacer la coneccion via codigo me da un error sobre la configuracion de la red, pero no estoy en red, sino, mi pc es el servidor de base de datos y tambien el cliente que solicita la peticion al servidor

Estas son las intrucciones:

General Declarations
Dim Db As ADODB.Connection
Dim RS As ADODB.Recordset

Private Sub Form_Load()
Set Db = New ADODB.Connection
Set RS = New ADODB.Recordset

Db.Open "Provider=SQLOLEDB.1;Persist Security Info=False;" & _
"User ID=sa;Intial Catalog=ProAce.mdf;Data Source=Local"

RS.Open "ProAce_Departamentos", Db, adOpenStatic, adLockOptimistic

muestradatos
End Sub

Muestradatos es una funcion para mostrar los registros de la base de datos

Yo utilizo la siguiente función para establecer la conexión y me funciona, pruebala

Public Function Establece_Conexion(ByRef conexion As ADODB.Connection, tabla As String) As Boolean
Dim aux As String

Set conexion = New ADODB.Connection

On Error GoTo Errores

aux = "PROVIDER=MSDASQL;driver={SQL Server};server=" & WServer & ";uid=" _
& WUsuario & ";pwd=" & WClave & ";database=" & tabla

conexion.ConnectionString = aux
conexion.ConnectionTimeout = 30
conexion.Open
Establece_Conexion = True
Exit Function

Errores:
Establece_Conexion = False
MsgBox "Error de Conexión " & Chr(13) & Err.Description & Chr(13) & Chr(34) & tabla & Chr(34), vbInformation, "Conexión ODBC"
End
End Function