Sumar registros access en Visual Basic

Que tal, necesito sumar los totales de la cantidad de dinero q que salio de todos los registros, 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

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")