'hier wird Variable1 belegt
Dim dr_bez() As DataRow = ds_bez.Tables("beziehungen").Select()
idbez = dr_bez(i)("IDbez")
 
Sprung1:  'ist die Sprungmarke des GoTo              
Dim sql_check As String = "Select COUNT(*) From vw_in_stamm_vorhanden Where" & _
  "IDbez='" & idbez & "' AND IDmat='" & idmat & "' "
Dim cmd_check As New SqlCommand(sql_check, planconn)
planconn.Open()
Dim check As Integer
check = cmd_check.ExecuteScalar
planconn.Close()
'Überprüfung, ob Variable1 in bestimmter Konstellation schon vorhanden ist
If check > 0 Then
   idbez = dr_bez(i + 1)("IDbez")
   GoTo Sprung1
End If
...
'jetzt kommt nur noch das Insert-Kommando