ايجاد اشيا نمونه در حافظه

کد:

    Public Conn As ADODB.Connection
    Public Cmd As ADODB.Command
    Public Rst As ADODB.Recordset
    public Param as ADODB.Parameter

        Set Conn = New ADODB.Connection
        Set Cmd = New ADODB.Command
        Set Rst = New ADODB.Recordset
        Set Param = New ADODB.Parameter