Bloque de código
Dim cadenaSQL As String
cadenaSQL =
"SELECT * FROM tabla WHERE (FECHA>=@FECHA_INICIO AND FECHA<= @FECHA_FIN)"
Dim objCommand As New MySqlCommand(cadenaSQL, Accesos.objConexion)
Dim param_fecha_inicio As New MySqlParameter("?FECHA_INICIO", SqlDbType.Date)
Dim param_fecha_fin As New MySqlParameter("?FECHA_FIN", SqlDbType.Date)
param_fecha_inicio.Value = fecha_inicio
param_fecha_fin.Value = fecha_fin
objCommand.Parameters.Add(param_fecha_inicio)
objCommand.Parameters.Add(param_fecha_fin)
Dim objDA As New SqlDataAdapter
objDA.SelectCommand = objCommand
Dim ds As New DataSet ds.Clear()
objDA.Fill(ds, "tabla")
Dim informe As New InformeCR
informe.SetDatabaseLogon(Accesos.usuario, Accesos.pwd, Accesos.servidor, Accesos.bd)
informe.SetDataSource(ds)