Sumar registros access en Visual Basic

Que tal, necesito sumar los totales de la cantidad de dinero que salio de todos los registros mientras este en el intervalo de fechas especificado, si quito el """"SUM(Total) AS Resultado""" si me funciona al hacer el intervalo de fechas. En mi tabla de access puse el campo "Total" en formato number. Al correr este código, mi data grid que muestra los registros se queda solo con un registro en blanco, no se añade ningún campo ni columna extra que muestre el Total, pero tampoco me marca error.

Dim fecha1 As DateTime = TextBox1.Text

Dim fecha2 As DateTime = TextBox2.Text

Dim CARGA As New OleDbDataAdapter("SELECT SUM(Total) AS Resultado FROM ListaCompra WHERE Nombre LIKE '" & TextBox3.Text & "%' AND Fecha BETWEEN #" & fecha1 & "# AND #" & fecha2 & "#", cnxDB)

Dim DS As New DataSet
CARGA.Fill(DS, "ListaCompra")

DataGridView1.DataSource = DS.Tables("ListaCompra")

Como tengo que acomodarlo o que me falta ponerle?