Activas la Referencia Libreria
Active data Objetc 2.1
y en el evento Load del Form
Pones
dim cn as new adodb.connection
cn.cursorlocation=aduseclient
cn.ConnectionString ="provider=sqloledb.1;data source=maq01;initial catalog=nombasededatos;user id=sapws=;"
cn.open
asi es la adena de Conexion
Desde peru Renzo roberto