' Array deklaration
Dim array As Decimal()
 
If objConn.State = ConnectionState.Open Then
            Try
                objReader = objCmd.ExecuteReader()
 
                Do While objReader.Read()
      ' ---->  Hier soll das Array gefüllt werden , doch wie  ? 
      ' *verzweifel*....................
                Loop
 
                Console.ReadLine()
            Catch myException As Exception
                Console.WriteLine(myException.Message)
                Console.ReadLine()
            End Try