How to use the date time of label.text as a SQL parameter in VB.NET project

I set the start and end dates of the month on two labels in a project. I want to use it as a parameter.
But I'm giving the wrong message the way I'm doing. I would be benefited if an experienced person could solve my problem.
Thanks in advance.

  Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
          Dim d As DateTime = DateTimePicker1.Value
        Dim nd As New Date(d.Year, d.Month, 1)
        Label1.Text = nd.ToString("yyyy-MM-dd")
        Label2.Text = nd.AddMonths(1).AddDays(-1).ToString("yyyy-MM-dd")
        
    End Sub



  Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click
   Try
            con.Open()
            Dim cmd As New SqlCommand("select * from [dbo].[tbl_sales] 
where date between @d1 and @d2", con)

            Dim da As New SqlDataAdapter(cmd)
            cmd.Parameters.Add("@d1", SqlDbType.Date).Value = Label1.Text 
            cmd.Parameters.Add("@d2", SqlDbType.Date).Value = Label2.Text 
            Dim dt As New DataTable
            dt.Clear()
            da.Fill(dt)
            DataGridView1.DataSource = dt
            con.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            If (con.State = ConnectionState.Open) Then
                con.Close()
            End If
        End Try

    End Sub