Conectar visual basic con sql server

[vector]

Que tal hermanos necesito saber como conectar visual basic con un base de datos en sql server lo que pasa es que quiero implementar un nuevo sistema en la empresa que me encuentro ya tengo todo ahora solo necestio hacer el enlace entre los dos

de antemano les agradeceria su ayuda !!!!!

[flaviovich]

Código:

Public conn As ADODB.Connection
Public Sub ConectarSQLServer()
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.ConnectionString = "Provider=sqloledb;" & _
"Data Source=servername;" & _
"Initial Catalog=DBname;" & _
"User Id=username;" & _
"Password=pwd"

conn.Open
End Sub