Visual Basic - Como hago una conexion a modo codigo con SQL

Buenos dias

Alguien me podria enviar un ejemplo de una conexion por codigo o por asistente de visual 6 con slq server

Gracias por la atencion

Att

Juan H.

Este es un ejemplo de conexion por codigo, necesitas agregar en tus referencia "Microsoft ActivedataObjects 2.6" (o superior)

Dim oconnection1 As ADODB.Connection
Dim m_orecordset1 As ADODB.Recordset

m_sconnstr = "provider=SQLOLEDB; server=tu_server; database=tu_db; user=juan; password=123; trusted_connection=yes;"

ssql = "select * from tabla"
Set oconnection1 = New ADODB.Connection
oconnection1.CursorLocation = adUseClient
oconnection1.ConnectionString = m_sconnstr
oconnection1.Open
Set m_orecordset1 = New ADODB.Recordset
m_orecordset1.Open ssql, oconnection1, adOpenStatic, adLockBatchOptimistic, adCmdText
Set m_orecordset1.ActiveConnection = Nothing
oconnection1.Close
Set oconnection1 = Nothing