conectar a una base de datos

[Mamulito]

si quieres un poco mas de complicacion pero menos codigo a traves de odbc. Pare ello debes activar la referencia Microsoft ActiveX Data Object en Referencias

Dim cnn as new adodb.connection
dim rs as new adodb.recordset
dim query as string

cnn.connectiostring="la cadena odbc"
cnn.open

query = "select * from basedatos"
rs.open query,cnn