dim query as string = "SELECT 1901777406*(IIF([Spalte1]=1,[Spalte2],0) ) AS" & _
  "l_43_S1L FROM [Arbeitstabelle];"

Dim adapter As New OleDbDataAdapter(query, myConn)
Dim ds As New DataSet
      Try
         myConn.Open()
         adapter.Fill(ds, startIndex, anzahl, "Daten")
      Catch ex As Exception
         abbrechen = True
         MessageBox.Show(ex.Source + ": " + ex.Message)
      Finally
         myConn.Close()
      End Try

'---------------------------------------------'
ich weiss, dass ich nichts weiss

immerSuchender