Visual Basic - Error de VB con SQL Server 7.0

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

'Data Source' es el nombre de la base de datos tal y como la vez en el Enterprise Manager e Initial Catalog es el nombre del servidor que por lo general es el nombre de tu pc. De cualquier modo te envio un programa de ejemplo tomado del cd de SQL server 2000 (el cual es identico al de SQL server 7)