La fecha la puedes cambiar como te puse, Simplemente la cojes de un texbox y la inviertes
Este es un pequeño ejemplo de como hacerlo
Código vb:
Ver originalDim FechaInvertida As String = ""
Dim Separaciones() As String
Separaciones = Split(TextBox1.Text, "-") ' Aqui tienes que cambiar - por el simbolo que uses para separar la fecha
FechaInvertida = "'" & Separaciones(2) & "-" & Separaciones(1) & "-" & Separaciones(0) & "'"
Luego solo tienes que ponerlo de la siguiente manera
Código vb:
Ver originalcmd.CommandText = "SELECT * FROM cajas WHERE DATE_SUB(" & FechaInvertida & ",INTERVAL 30 DAY) <= fecha ORDER BY idcajas"
Igual que puedes cambiar la fecha el intervalo también podrías sacarlo de algun campo que uses o variable.
Te dejo un enlace para que veas los intervalos de MySQL, para que puedas ajustar lo que te puse como mejor te convenga
http://dev.mysql.com/doc/refman/5.0/...functions.html
Pero vamos que si te sirvió lo que te puse, me alegro jeje.