ช่วยหน่อยคะ คำสั่ง sql ใน vb ต้องการให้แสดงข้อมูลวันที่ที่น้อยกว่าวันที่ปัจจุบันอยู่ 2 เดือนคะ

DateTime.Now.AddMonths(-2).ToShortDateString()

 Private Sub dt_expDate_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dt_expDate.ValueChanged

       dt_expDate.Value = DateTime.Now.AddMonths(-2).ToShortDateString()

    End Sub

 dt_expDate.Value = DateTime.Now.AddMonths(-2).ToString()

dt_expDate.Value = dt_expDate.Value.AddMonths(-2)

    d_adap = New SqlDataAdapter("Select DATEADD(MONTH, -2, Exp_date = '" & DateTime.Now.Year.ToString() & "/" & DateTime.Now.Month.ToString() & "/" & DateTime.Now.Day.ToString() & "')" & _
        "from  Vaccine", sqlConnection)
        rowaffected = d_adap.Fill(d_set, "Vaccine")

        DataGridView2.DataSource = d_set.Tables("Vaccine")

dt_expDate.Value = DateTime.Parse(dt_expDate.Value.ToString()).AddMonths(-2)

dt_expDate.Value = DateTime.Parse(dt_expDate.Value.ToString()).AddMonths(-2).ToString()

Private Sub DateTimePicker1_CloseUp(ByVal sender As Object, ByVal e As System.EventArgs) Handles DateTimePicker1.CloseUp
    DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(-2).ToString()
End Sub