> Dim strYMD As Date = DateTime.Parse(Mid(simeYMD, 1, 7) & "/01")
> Dim endYMD As Date = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, strYMD))

こんな方法もあります。考え方は同じですが。

Dim dt As Date = Date.ParseExact(simeYMD, "yyyy\/MM\/dd", CultureInfo.InvariantCulture)

Dim dtFrom As New Date(dt.Year, dt.Month, 1)

Dim dtTo As Date = dtFrom.AddMonths(1).AddDays(-1)

> パラメータ化して問い合せるとはどういうことですか？
ざっくり書くと、TableAdapter もしくは DataAdapter に
　SELECT * WHERE 日付 >= @f AND 日付 < @t
な SQL を渡して、Parameter クラス経由でデータを渡すというものです。