Visual Basic - Bases de datos VB 6.0 con Sql Server 7.0

me gustaria saber como se hace la coneccion de la base de datos de 6.0 con sql server 7.0.Se que se hace una coneccion DNS pero no se mas.

Si vas a trabajar con ADO, debes de activar la referencia
Micorsoft ActiveX Data Objects 2.5 Library o la version que tengas,ejemplo:
Public cnBase As ADODB.Connection
Sub Abrir()
Set cnBase = New Connection
cnBase.ConnectionTimeout = 0
cnBase.CommandTimeout = 1200
Usuario = "miguel"
Password = "xxxx"
cnBase.Open "Provider=MSDASQL.1;Password=" & Password & ";Persist Security Info=True;User ID=" & Usuario & ";Data Source=TuDSNConfigurado"
cnBase.CursorLocation = adUseClient
End Sub