select count og derefter update driller

jeg har 2 tabler i en .mdb med en relation imellem, jeg vil så tælle hvor mange underposter der er til en post og skrive det ind i celle i en af tablerne. Jeg har prøvet at gøre følgende:
Sub btn_Tilfoejbestilling(sender As Object, e As EventArgs)
  dbconnection.Open()
  opdaterBestillinger(27, dbconnection)
  dbconnection.Close()
  errorlabel.Text = errorLabel.Text & " - virker det eller ej :("
End Sub

Function opdaterBestillinger(ByVal ordreid As Integer, ByVal dbConnection As IDbConnection)
  Dim sqlString AS String = "Select count(*) as antal From [underMadOrdre] Where ([ordreid]=" & ordreid & ")"
  Dim dbCommand_1 As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
  dbCommand_1.CommandText = sqlString
  dbCommand_1.Connection = dbConnection
  Dim dataReader As System.Data.IDataReader = dbCommand_1.ExecuteReader()
  Dim antal As Integer = dataReader.GetOrdinal(0)
  datareader.Close()
  errorLabel.Text = antal
  Dim queryString As String = "UPDATE [MadOrdre] SET [antalbestillinger]=" & antal & " WHERE ([MadOrdre].[ordreid] = " & ordreid & ")"
  sqlExecute(queryString, dbconnection)
End Function

Function SqlExecute(ByVal strSql As String, ByVal dbConnection As IDbConnection)
  Dim dbCommand As IDbCommand = New OleDbCommand()
  dbCommand.CommandText = strSql
  dbCommand.Connection = dbConnection
  dbCommand.ExecuteNonQuery
End Function

Jeg har selvfølgelig testet sql'en og den afvikles fint og giver resultat inde i databasen, men når jeg køre det, virker det ikke.

Jeg er ret sikkert på at fejlen er, hvor jeg henter ud fra datareader. Men da dette er et af mine første projekter i aspx så kan jeg ikke helt se mig ud af den. Håber der er en som kan se min fejl.