Dim MyVar = Me.TxtBx1.Text
Dim Wert6 As Integer
 
cmd.CommandText = "SELECT COUNT(*) FROM ds_firma GROUP BY ds_firma_nr = " & _
  MyVar
Wert6 = cmd.ExecuteScalar()
 
If Wert6 = MyVar Then
 
cmd.CommandText = String.Format("UPDATE ds_stamm SET ds_stamm_status = '{0}'" & _
  "WHERE ds_stamm_id = " & MyVar, Me.TxtBx2.Text)
cmd.ExecuteNonQuery()
 
cmd.CommandText = "SELECT * FROM ds_firma WHERE ds_firma_nr = " & MyVar
cmd.ExecuteNonQuery()
 
reader = cmd.ExecuteReader()
 
Do While reader.Read()
TxtBx3.Text = reader("ds_firma_name")
Loop
reader.Close()
 
Else
 
cmd.CommandText = String.Format("UPDATE ds_stamm SET ds_stamm_status = '{0}'" & _
  "WHERE ds_stamm_id = " & MyVar, Me.TxtBx2.Text)
cmd.ExecuteNonQuery()
 
cmd.CommandText = "INSERT INTO ds_firma (ds_firma_nr) VALUES ('" & MyVar & "')"
cmd.ExecuteNonQuery()
 
cmd.CommandText = "SELECT * FROM ds_firma WHERE ds_firma_nr = " & MyVar
cmd.ExecuteNonQuery()
 
reader = cmd.ExecuteReader()
 
Do While reader.Read()
TxtBx3.Text = reader("ds_firma_name")
Loop
reader.Close()
 
End If
 
End If

Es ist n?tig das Eure Antworten verst?ndlich und nachvollziehbar sind. (Umgebung: Visual Studio Proff.2010, WPF, XAML, Visual Basic 10, Wind.7)