Visual Basic: coneción BD SQL Server

[mamc]

Favor alguien puede ayudar con el código que me permita conectar un formulario con alguna BD que esta en SQL Server.

Gracias

[alexzyz]

Declaras
Dim conec as New ADODB.Connection

En el Load del Formulario
conec.Open = "Provider = SQLOLEDB;Data Source = nombreservidor;Initial Catalog=nombrebasededatos;Uid= nombreusuario;Pwd=password;"


Para hacer un Select
declaras
Dim rstregistros as ADODB.Recordset

set rstregistros = conec.execute("Select * from...")

var1 = rstregistros("campo1")
var2= rstregistros("campo2")
etc.