Visual Basic - sumar registros

Hola... ojala alguien me ayude, necesito sumar una columna de una tabla en sql server 2000, dependiendo de la fecha... y necesito k esa suma total, me la muestre en un label

por ejemplo

fecha_uso nombre total
12-10-03 maria 2000
12-10-03 leticia 450
12-10-03 sebastian 600
12-10-03 yeni 900
13-10-03 andrea 1200

necesito sumar todos los campos de total, siempre y cuando la fecha sea el 12-10-03, y el resultado me lo muestre en un label

chau

si usas ADO:
dim CN as new adodb.connection
dim rs as new adodb.recordset
dim sql as string

cn.open cadena_de_conexion_sqlServer

sql= "SELECT SUM(TOTAL) "
sql=sql & " FROM TABLA "
sql=sql & " GROUP BY FECHA_USO "
sql=sql & " HAVING FECHA_USO='12/10/2003' "

rs.open sql, CN
if not rs.eof then label1.caption=rs(0)

rs.close
set rs=nothing
cn.close
set cn=nothing

Si usas DAO.

si usas ADO:
dim db as DAO.Database
dim rs as DAO.Recordset
dim sql as string

Set db = DbEngine.OpenDatabase("Base Datos")

sql= "SELECT SUM(TOTAL) "
sql=sql & " FROM TABLA "
sql=sql & " GROUP BY FECHA_USO "
sql=sql & " HAVING FECHA_USO='12/10/2003' "

set rs = db.OpenRecordset(sql, dbopendynaset)

if not rs.eof then label1.caption=rs(0)

rs.close
db.close
set rs=nothing
set db=nothing

Saludos

k pasa en el caso de k no uso ado, como lo hago

gracias