【解決方法】私のコーディングに対する応答がありません

Dim constring As String = "dsn=mysql_tabel;database=db1;server=localhost;iud=root"
Dim con As New OdbcConnection(constring)
con.Open()

Dim query As String = "SELECT *FROM tbdata_reservasi WHERE tanggal_masuk >= @ST " 'AND tanggal_keluar <= @ET"

Dim startdate As DateTime = New DateTime(MonthCalendar1.SelectionStart.Year, MonthCalendar1.SelectionStart.Month, 1)
Dim Enddate As DateTime = startdate.AddMonths(1)

Dim cmd As New OdbcCommand(query, con)

cmd.Parameters.Clear()
'cmd.Parameters.AddWithValue("@ST", startdate)
'cmd.Parameters.AddWithValue("@ET", Enddate)
cmd.Parameters.Add("@ST", OdbcType.DateTime).Value = startdate
cmd.Parameters.Add("@ET", OdbcType.DateTime).Value = Enddate

私が試したこと:

助けてください…私のコーディングに応答がありません…私のコーディングのどこが間違っていますか