Bases de Datos - visual y sql

quisiera saber como puedo conectar una base de datos de sql con visual basic... es decir , abrir una tabla conectada con visual basic

Public ADOCONN As New ADODB.Connection 'CONEXION*************
Public Function conex()
ADOCONN.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=INCENTIVOS2;Data Source=HIGHLIFE"
ADOCONN.Open
End Function
Public Function desconectar()
ADOCONN.Close
End Function

'insert
Call conex
RST_EMPLEADO.Source = "INSERT INTO TB_EMPLEADO VALUES(" & Txt_CvlEmpleado.Text & ",'" & Txt_Nombre.Text & "'," & CVL_N & "," & cosa2 & ",'" & Cbo_Puesto.Text & "'," & CVL_S & ",'" & Txt_Rfc.Text & "','" & Txt_Curp.Text & "'," & cosa & ")"
RST_EMPLEADO.ActiveConnection = ADOCONN
MsgBox "REGISTRO ALMACENADO", vbInformation
RST_EMPLEADO.Open
desconectar
'delete
conex
RST_EMPLEADO.Source = "delete from tb_empleado where cvl_empleado=('" & Txt_CvlEmpleado.Text & "')"
RST_EMPLEADO.ActiveConnection = ADOCONN
RST_EMPLEADO.Open
desconectar

Antes que todo en referencias debes de tener agregado el Microsoft ActiveX Data Objetct 2.6 o superior.
Con esa librería puedes invocar a la conexión y al recordset.

Dim Con as ADODB.Connection
Dim Rs as ADODB.Recordset

Set Con = New ADODB.Connection
Set Rs = New ADODB.Recordset

Con.ConnectionString = "DSN=ODBC_CONECTOR;uid=USUARIO;pwd=CLAVE"
Con.ConnectionTimeout = 30
Con.Open

Rs.Open "SELECT * FROM TU_TABLA", Con, adOpenKeyset, adLockOptimistic

Y de acá ya manipulas el Rs depende de lo que tú desees hacer.

ODBC_CONECTOR = es el DSN usuario (lo creas en ODBC)
USUARIO = Usuario con la que accesas la BD
CLAVE=Clave del usuario para acceder a la BD