Public Sub XArrayInADO()
Dim i, j As Long
 
    i = 0
    RS.MoveFirst
 
    'Solange letzter Datensatz nicht erreicht
    While Not RS.EOF
        i = i + 1
        'Abfrage ob RecordSet Feld = Null ist
        For j = 1 To 17
            Select Case RS.Fields(j - 1).Type
                Case adInteger
                    Dim iTemp As Integer
                    iTemp = XArrayPersonal.Value(i, j)
                    RS.Fields(j - 1) = iTemp
                Case adDouble
                    Dim dTemp As Double
                    dTemp = XArrayPersonal.Value(i, j)
                    RS.Fields(j - 1) = dTemp
                Case adLongVarBinary
                    Dim lTemp As Long
                    lTemp = XArrayPersonal.Value(i, j)
                    RS.Fields(j - 1) = lTemp
                Case Else
                   Dim Temp As String
                   If IsNull(XArrayPersonal.Value(i, j)) Then
                        Temp = ""
                    Else
                        Temp = XArrayPersonal.Value(i, j)
                    End If
                    RS.Fields(j - 1) = Temp
            End Select
 
        Next j
        'Springe zum nächsten Datensatz
        RS.MoveNext
    Wend
 
End Sub