Conexión base de datos SQL Server en Visual Basic 6. ADO

Este codigo es un ejemplo de una conexión ADO con una base de datos SQL Server.

Dim rs As New ADODB.Recordset
Dim cn As ADODB.Connection

'Abrimos la base de datos
Set cn = New ADODB.Connection
sCon = "driver={SQL Server};"
sCon = sCon + "Server=TUSERVIDOR;uid=USUARIO;pwd=PASS;"
sCon = sCon + "database=TUBASEDEDATOS"
cn.ConnectionString = sCon
cn.ConnectionTimeout = 30
cn.Open

'Aqui usamos un Recorset para extraer los datos de la consulta

QuerySQL = "SELECT * FROM TABLA"
rs.CursorLocation = adUseClient
rs.Open QuerySQL, cn, adOpenKeyset, adLockOptimistic