Visual Basic - ayuda con coneccion a sql

Soy nuevo en esto de trabajar con visual y quisiera si me pudieran ayudar con un ejemplo de coneccion con VB6 a sql, porque estoy muy atorado con esto

Public Cn As ADODB.Connection

Sub CONECTAR_BASES()
Set Cn = New ADODB.Connection
With Cn
.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password='eolo452';Initial Catalog=CHEQUES;Data Source=DATOS2"
.CommandTimeout = 30
.ConnectionTimeout = 30
.Open
End With

mejor te lo paso con nombres para que no se complique la cosa, ya que los datos anteriores no sirven para tu caso

suerte

Public Cn As ADODB.Connection

Sub CONECTAR_BASES()
Set Cn = New ADODB.Connection
With Cn
.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True; _
User ID=USUARIO;Password='CLAVE';Initial Catalog=BASEdeDATOS; _
Data source=SERVIDOR"
.CommandTimeout = 30
.ConnectionTimeout = 30
.Open
End With

gracias por la ayuda, ya probe el codigo y me sirvio mucho