Visual Basic.NET - La expresión contiene un operador "Between" no compatible

Private Sub filtrar()

    Try

        Dim vista As New DataView

        vista.Table = ds.Tables("Diario")

        Dim str As String = String.Empty

        str = "[Year(Fecha)]=" & CStr(vaño) & " And [Month(Fecha)] Between " & CStr(vmes) & " And " & CStr(vmes1) & ""

        vista.RowFilter = str

        Me.dgv.DataSource = vista

        Me.dgv.Update()

    Catch ex As Exception

        MessageBox.Show(ex.Message, "Advertencia", MessageBoxButtons.OK)

    End Try

End Sub

Sub cargaDatos()

    Try

        Open()

        consulta = "Select * From diario Where Year(Fecha) = " & CStr(vaño) & " And  Month(Fecha) Between " & CStr(vmes) & " And " & CStr(vmes1) & ""

        da = New OleDbDataAdapter(consulta, cn)

        ds = New DataSet

        da.Fill(ds, "Diario")

        dgv.DataSource = ds.Tables("Diario")

        Me.dgv.Update()

        formato()

    Catch ex As Exception

        MsgBox(ex.Message, MsgBoxStyle.Information, ToString)

    End Try

End Sub

and [Month(Fecha)]>=" & CStr(vmes) & " and [Month(Fecha)]<=" & CStr(vmes1) & ""