'Bueno primero debes hacer la conexion a tu Base de Datos
'Luego prueba esto
Dim SQL As String
Dim DA As System.Data.SqlClient.SQLDataAdapterAs
Dim DS As New System.Data.SqlClient.DataSet
SQL = "Select * From [Tabla] Where [Campo_de_la_fecha] Between [Fecha1] And [Fecha2]"
DA = New SQLDataAdapter(SQL, CN) 'CN es la variable de conexion
DS.Fill(DA,"Fechas")
DataGrid1.DataSource = DS.Tables(0)