Visual Basic - codigo conexion visual a sql server

Necesito si me pueden explicar y enviar codigo de como conextar visual basic a sqlserver 2000 , un ejemplo basico para aprender.
gracias

Espero te sirva el codigo, esto es lo basico


Option Explicit

Dim conn As ADODB.Connection 'Objeto de conexion
Dim rst As ADODB.Recordset 'Objeto para recorrer los registros de la tabla

Private Sub Form_Load()

'TELAM es la base de datos y Noticias una tabla de la base

Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Telam;Data Source=TELAM"
conn.Open

Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
rst.Open "Noticias", conn, adOpenDynamic, adLockOptimistic

end sub