Imports System.Data.SqlClient
Imports System.Data
 
Public Class Form1
    Public SDC As SqlConnection, sQL As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim SDR As SqlDataReader
        SDC = New SqlConnection("Server=xxx") '...
        SDC.Open()
 
        SQL = "Select * from Artikel"
        SDO = New SqlCommand(SQL, SDC)
        SDR = SDO.ExecuteReader
        Do While sdr.Read
            Sub_Test(SDR("ArtikelNr"))
        Loop
        SDR.Close()
        SDC.Close()
 
        End
    End Sub
 
    Sub Sub_Test(ByVal ArtikelNr As String)
        Dim SDR1 As SqlDataReader
        Sql = "Select * from Tabelle where irgendwas=" & ArtikelNr
        SDR1 = New SqlCommand(SQL, SDC).ExecuteReader
        Do While SDR1.Read
           '... tu etwas
        Loop
        SDR1.Close()
    End Sub
End Class

Joachim