Public Type tp_tbl_Teamworkers
  tp_Name As String
  tp_Vorname As String
  tp_Org As String
  tp_email As String
  tp_Telwork As String
  tp_TelPrivat As String
  tp_Handy As String
  tp_Fax As String
  tp_Strasse As String
  tp_plz As String
  tp_Ort As String
  tp_pro_Postition As String
  tp_pro_Zuordnung As String
  tp_pro_temp1 As String
  tp_pro_temp2 As String
  tp_CHANGE_USER As String
  tp_CHANGE_DATE As String
  tp_CHANGE_TIME As String
End Type

Dim tbl_WKs As tp_tbl_Teamworkers
 
strValues(0) = tbl_WKs.tp_Name
strValues(1) = tbl_WKs.tp_Vorname
strValues(2) = tbl_WKs.tp_Org
strValues(3) = tbl_WKs.tp_email
strValues(4) = tbl_WKs.tp_Telwork
strValues(5) = tbl_WKs.tp_TelPrivat
strValues(6) = tbl_WKs.tp_Handy
strValues(7) = tbl_WKs.tp_Fax
strValues(8) = tbl_WKs.tp_Strasse
strValues(9) = tbl_WKs.tp_plz
strValues(10) = tbl_WKs.tp_Ort
strValues(11) = tbl_WKs.tp_pro_Postition
strValues(12) = tbl_WKs.tp_pro_Zuordnung
strValues(13) = tbl_WKs.tp_pro_temp1
strValues(14) = tbl_WKs.tp_pro_temp2
strValues(15) = tbl_WKs.tp_CHANGE_USER
strValues(16) = tbl_WKs.tp_CHANGE_DATE
strValues(17) = tbl_WKs.tp_CHANGE_TIME