BUG: Parameterized Insert of LongVarBinary Data Type Can Return "Type Is Invalid" Error

Private Sub Form_Load()
    Dim cn As New ADODB.Connection
    Dim cmd As New ADODB.Command
    Dim param As ADODB.Parameter
   
    cn.Open "DSN=dBaseFiles"
    'cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data    'Source=C:\dBase;Extended Properties=dBase 5.0;Persist Security Info=False"

    cn.Execute "CREATE TABLE test (col1 oleobject)"

    cmd.ActiveConnection = cn
    cmd.CommandText = "insert into test values (?)"
    Dim arr(10) As Byte
    arr(0) = 1
    arr(1) = 2
    Set param = cmd.CreateParameter(, adLongVarBinary, adParamInput, UBound(arr) + 1, arr)
    cmd.Parameters.Append param
    cmd.Execute
    cn.Close
    Stop
    
    End
  
End Sub
				

cn.Open "DSN=dBaseFiles"