Visual Basic - Error de SQL Server con VB

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

viejo,hola como estas.

lo primero que veo es que tu estas declarando mal la variables
es: Public adoConeccion As New ADODB.Connection
Public adoQry As New ADODB.Command
with adoconeccion
.ConnectionTimeout = 10
.CursorLocation = adUseClient
.Provider = "sqloledb"
.Open "Data Source=servidor;Initial Catalog=basededatos;", "sa"

si haces esta coneccion, no te falla con ningun tipo de servidor de base de datos.