Visual Basic - codigo para conecciones ado

deseo hacer conecciones ado mediante codigo de la manera mas facil y sencilla puesto que estoy realizando un sistema para un estudio contable

Esta es la que yo uso y me parece sencilla


sAttributes = "DRIVER=NonStop SQL;UID=" & LCase(gsSuperusuario) & _
";PWD=" & UCase(gsSuperpasswd)
sAttributes = sAttributes & ";DATABASE=" & gcDATABASE & ";Commlib=," & gcSERVER & "," & GC_PUERTO & ";"
sAttributes = sAttributes & "ACCESS=0;"
sAttributes = sAttributes & "CURSOR=3;"
sAttributes = sAttributes & "TXN=0;"
sAttributes = sAttributes & "AUTOCOMMIT=1;"
sAttributes = sAttributes & "LOGIN_TIMEOUT=0;"

gconnADO.ConnectionString = sAttributes
gconnADO.Open

grsADO.CursorLocation = adUseClient
strQuery="Select * from Tabla"
grsADO.Open strQuery, gconnADO, adOpenKeyset, adLockOptimistic

gconnADO es ADO.Connection
grsADO es ADO.Recordset

como sumar de un campo sus registros.

Con una sentencia sql como esta

select sum(campo) from tabla