مشكلة في ايجاد اجمالي

السلام عليكم 

عند تنفيذ هذا الكود يظهر 

 sSQL = "SELECT SUM(Account) AS TotalItemsOrdered FROM TBL_Account Where (DateM BETWEEN ('" & TxtFirst.Text & "') AND ('" & TxtEnd.Text & "')) "
            cmd.CommandText = sSQL
            da.SelectCommand = cmd
            da.Fill(dt)

            DataGridView1.DataSource = dt
            If dt.Rows.Count = 0 Then
                MsgBox("No record found!")
            End If

        Catch ex As Exception
            MsgBox(ErrorToString)

        Finally

يظهر خطأ اريد الاجمالي خلال تارخين