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

yo tambien uso SQL 7 y vb6 y no me ha causado problemas las conexiones, pero yo las hago un poco diferentes a lo que tu tienes, aqui esta mi código:

Global DB As Connection

Public Function gfOpenDB() As Boolean

Set DB = New Connection
DB.CursorLocation = adUseServer
DB.open "Provider=SQLOLEDB;Server=SVRSQLSERVER;Database=dbDotaciones;uid=sa;pwd=;Current Language=Español;"

End Function