hola mi nick es consultor y mira tengo un codigo sencillo para ti
primero creas tus objetos conneccion y recordset
Public cn As Connection
Public rsusuario As Recordset
Public rspais As Recordset
Public rsentidad As Recordset
Public rssucursal As Recordset
Public rsubigeo As Recordset
al igual que en el basic 6.0 puedes hacer una conexion en vb.net de la misma maneracreas un sub
Public Sub CONEXION()
cn = New ADODB.Connection
rsusuario = New Recordset
rspais = New Recordset
rsentidad = New Recordset
rssucursal = New Recordset
rsubigeo = New Recordset
cn.Open("PROVIDER=SQLOLEDB;INITIAL CATALOG=FACTORIA;DATA SOURCE=(LOCAL);USER ID=SA;PASSWORD=cimas")
rsusuario.Open("select * from PERSONA", cn, CursorTypeEnum.adOpenStatic)
rspais.Open("select * from pais", cn, CursorTypeEnum.adOpenStatic)
rsentidad.Open("select * from entidad", cn, CursorTypeEnum.adOpenStatic)
rssucursal.Open("select * from sucursal", cn, CursorTypeEnum.adOpenStatic)
rsubigeo.Open("select * from ubica_geograf", cn, CursorTypeEnum.adOpenStatic)
bueno espero que hallas entendido esta pequeña y sencilla demostracion y si tienes alguna duda escribe a
[email protected]