Visual Basic.NET - Error con una variable escalar

En este momento estoy tratando de hacer una consulta donde puede varificar x datos en un rango de una fecha determinada los que estoy haciendo es esto. Pero me registra un error que dice que se debe clarar la variable escalar


Private Sub btnConsultarComprasp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConsultarComprasp.Click

Dim oComan As New SqlCommand(" SELECT Compras.Cantidad_comprada, Compras.Fecha_compras, Compras.Fecha_comprasdos, Producto.Detalle, Producto.Unidades FROM Compras INNER JOIN Producto ON Compras.Cod_producto = Producto.Cod_producto WHERE (Compras.Fecha_compras BETWEEN @Fecha1= '" & dtpFechaComprasuno.Text & "' AND @Fecha2= '" & dtpFechacomprados.Text & "') ", oabrirbasedatos.Conectar)
Dim oAdabtador As New SqlDataAdapter(oComan)
Dim oTabla As New DataTable
Dim cantidadcom As New Integer
oAdabtador.Fill(oTabla)


If oTabla.Rows.Count = 0 Then
MsgBox("no hay compras en este periodo")
Else

For i = 0 To oTabla.Rows.Count - 1

dtgComprasp.Rows.Add(oTabla.Rows.Count)
dtgComprasp.Rows(i).Cells(0).Value = oTabla.Rows(i).Item("Cantidad_comprada")
dtgComprasp.Rows(i).Cells(1).Value = oTabla.Rows(i).Item("Detalle")
dtgComprasp.Rows(i).Cells(2).Value = oTabla.Rows(i).Item("Unidades_compradas")
dtgComprasp.Rows(i).Cells(3).Value = oTabla.Rows(i).Item("Fecha_Compras")

Next

End If
End Sub

muchas gracias por su tiempo

como dice exactamente el error??, y sabes en que parte del codigo de lo marca?????