Dim data() As String = {"xx", "yy", "pp", "aa"}
 
        Dim sql As String = String.Format("Select * From Tab1 Where Tab1.Id In (" & _
          "{0})", Join(data, ","))

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist