Dim dt As New DataTable
			Dim r As DataRow
			dt.Columns.Add("Col1", GetType(Integer))
			dt.Columns.Add("Col2", GetType(String))
			r = dt.NewRow
			r(0) = 1
			r(1) = "Wie auch immer"
			dt.Rows.Add (r)
 
			r = dt.NewRow
			r(0) = 2
			r(1) = "Wie auch immer"
			dt.Rows.Add (r)
 
			r = dt.NewRow
			r(0) = 3
			r(1) = System.DBNull.Value 
			dt.Rows.Add (r)
 
			Dim o As Object = dt.Compute("COUNT(Col1)", "Col1 = X")
			Dim res As Integer
			If o Is System.DBNull.Value  Then
         		  res = 0
				Else
			  res = CInt(o)	
			End If
 
			System.Diagnostics.Debug.WriteLine (res.ToString)