Using Dim Statement on Variant Arrays

Using Dim Statement on Variant Arrays

When passing a variant array by reference, make sure to use Dim to declare the statement before using Redim.


 Private Sub Command1_Click()Dim x as integer        ReDim v(2) As Variant    v(0) = "RIN"    v(1) = "A"		    	    Call GetAuthors(v)        Debug.print v(0,0)End SubSub GetAuthors(byref vArray as variant)Dim con As New ADODB.ConnectionDim rs As New ADODB.Recordset    con.ConnectionString = "Driver={SQL Server};Database=Pubs;Server=(local);UID=sa"    con.Open        rs.Source = "select * from AUTHORS where au_lname like '" & vArray(0) & "%'" and " & _ au_fname like '" & vArray(1) & "%'"    Set rs.ActiveConnection = con    rs.Open    vArray = rs.GetRows			'An Error occurs here    rs.Close    con.CloseEnd Sub

Executing this code raises “Run-time error #458 Variable uses an automation type not supported in Visual Basic.” Note that this error is particularly difficult to debug because the compiler will not generate an exception for using Redim without a Dim, event if “Option Explicit” is specified. Declaring the variant with a Dim statement before the Redim will prevent this error from occurring.


Share the Post: