cmd.Connection = con
                    con.Open()
 
                    cmd.CommandText = "Select a.id, a.Name1 as Firma, a.Str as" & _
                      "Strasse, a.plz as Postleitzahl from Adressen a where" & _
                      "name1 = '" & fields(3) & "';"
                    SQLdr = cmd.ExecuteReader 'Gets Data
                    Dim Firma, SQL As String
                    con.Close()
 
                    If SQLdr.HasRows Then
 
 
                        While SQLdr.Read() 'While Data is Present
...

cmd.ExecuteNonQuery()

EALA FREYA FRESENA