Как исправить этот код ?

---

Привет всем, у меня есть этот код, который работает отлично, и нет никакой ошибки, просто он показывает мне неправильную информацию, на самом деле, это не так, он просто показывает мне больше, чем должно быть, у меня есть datachart, который показывает мне данные в месяцах, например, я вижу datachart августа, но когда я отправил свою мышь в точку, она показывает мне информацию о сентябре также, моя дата в SQL формируется в DATETIME, а затем в VB.net я сформировал в "гггг-мм", это мой код для аннотации

Public Sub (day as String, Username as String) as String 
Dim data As String = ""
Dim constr As String = ";"
Dim query As String = "SELECT Date,Description,Price,Quantity,Username FROM [dbo].[ShareCost] WHERE DATEPART(DAY,Date) = @Day AND LTRIM(RTRIM(Username)) = @UserName"
Dim dt As DataTable = New DataTable()
Using con As SqlConnection = New SqlConnection(constr)
Using command As New SqlCommand(query, con)
command.CommandType = CommandType.Text
 
command.Parameters.AddWithValue("@Day", day.Trim())
command.Parameters.AddWithValue("@UserName", userName.Trim())
Using sda As SqlDataAdapter = New SqlDataAdapter(command)
sda.Fill(dt)
End Using
End Using
End Using
 
For Each row As DataRow In dt.Rows
Dim [date] As String = Convert.ToDateTime(Row("Date")).ToString("dd/MM/yyyy")
Dim Username1 As String = Row("Username")
Dim description As String = Row("Description")
Dim price As String = If(Row("Price").ToString = "", 0, Row("Price").ToString)
Dim quantity As String = If(Row("Quantity").ToString = "", 0, Row("Quantity").ToString)
data = data & [date] & " - " & Username1 & " - " & description & " - " & price & " - " & quantity & Environment.NewLine
Next
Return data
end sub
End Function

Что я уже пробовал:

Я попытался изменить эту часть кода :

"SELECT Date,Description,Price,Quantity,Username FROM [dbo].[ShareCost] WHERE (Date BETWEEN @Day AND DATEADD(MONTH,1,@Day)) AND LTRIM(RTRIM(Username)) = @UserName"

command.Parameters.AddWithValue("@Day", day.Trim() & "-" & DateTime.Now.Day.ToString())

но это дает мне ошибку в этой строке

sda.Fill(dt)

Conversion failed when converting date and/or time from character string.

Спасибо Вам за вашу помощь,
с уважением
Е

---