Problema cuando uso un select y un insert into en la misma función

[beamm]

Si ya revise la bd y no me inserta nada. Mira te voy a decir komo es la tabla Reserva de la bd. Tiene los siguientes kampos: NumClase(numerico);DNIUsu(texto); Fecha(fecha/hora); HoraInicio(fecha/hora); HoraFin (fecha/hora); Val (si/no); Motivo (texto).

Además de esto, en el formulario puse un CompareValidator para que la fecha sea la correcta ( te lo cuento para darte mas detalles)y la fecha q se inserta tiene q ser de tipo aaaa/mm/dd .

El código que me pidas que vuelva a poner es este:

Protected Sub Reservar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Reservar.Click
Dim dni, mot, h, q As String
Dim fecha As Date
Dim HI, HF, aula As Integer
Dim cnn As OleDbConnection
Dim resul2 As OleDbDataReader
aula = DropDownList1.Text
dni = DropDownList1.Text
fecha = TextBox2.Text
HI = DropDownList2.Text
HF = DropDownList3.Text
mot = TextBox3.Text

cnn = New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Documents and Settings\Bea.BEA-095B12391FA\Mis documentos\Visual Studio 2005\WebSites\GestionAulas\App_Data\gestionaulas.m db")
cnn.Open()
Dim query As String = "SELECT DNIUsu " & _
"FROM Reserva " & _
"WHERE NumClase = '" & aula & "', DNIUsu = '" & dni & "', Fecha = @fecha ,HoraInicio = '" & HI & "',HoraFin='" & HF & "' AND Motivo='" & mot & "' "

Dim objCmd As New OleDbCommand(query, cnn)
resul2 = objCmd.ExecuteReader()


Dim DNIUsu As String = String.Empty

While resul2.Read()
DNIUsu = resul2.GetString(0)
End While


If DNIUsu = String.Empty Then
q = "insert into Reserva(NumClase,DNIusu,Fecha,HoraInicio,HoraFin,V al,Motivo) values ('" & aula & "', '" & dni & "', '" & fecha & "', '" & HI & "', '" & HF & "', true, '" & mot & "' )"
Dim x As New OleDbCommand(q, cnn)
h = x.ExecuteNonQuery
If h Then
Response.Write("Reserva hecha con éxito")
End If
Else : Response.Write("El aula ya está reservada")

End If




cnn.Close()

End Sub



Espero que me podais ayudar :( y muchas gracias otra vez por molestaros)