Dim Cmd As ADODB.Command
 
Set Cmd = New ADODB.Command
    With Cmd
        .ActiveConnection = Cn
        .CommandText = "INSERT INTO Bilder VALUES('" & Now & " ', @test)"
        Call .Parameters.Append(GetParameter("@test", adArray, arr()))
    end with
 
Private Function GetParameter(srtName As String, intType As ADODB.DataTypeEnum, _
            varVal As Variant, Optional intSize As Integer = 0) As _
            ADODB.Parameter
Dim objTemp As New ADODB.Parameter
 
With objTemp
    .Type = intType
    .Name = strName
    If intSize > 0 Then
        .Size = intSize
    End If
    .Value = varVal
End With
 
Set GetParameter = objTemp
 
End Function