Add control array in VB.Net

[chrysanthos7]

Χέρεται

Είμαι καινούργιος στο Forum

Έχω μια δυσκολία να προσθέσω control arrays στη VB.Net

Το πρόβλημα δεν είναι να προσθέσω Control Array πάνω σε Form.

Το πρόβλημα είναι να προσθέσω Control Array σε Module. Πιο συγκεκριμένα θέλω να κάνω το εξής:

 

Public datADODBRS() As ADODB.Connection

Public RecSetADODB() As ADODB.Recordset

 

Και όπου θέλω να λέω:

 

WhatADODB = χ

 

ReDim Preserve datADODBRS(WhatADODB)

ReDim Preserve RecSetADODB(WhatADODB)

 

datADODBRS(WhatADODB).ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & OpenPath & ";Persist Security Info=False"

 

datADODBRS(WhatADODB).Open(OpenPath)

RecSetADODB(WhatADODB).Open(OpenQuery, datADODBRS(WhatADODB), ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockPessimistic)

 

Κατάλαβε κανείς το πρόβλημα;

 

THE ERROR MESSAGE IS: 91

Object reference not set to an instance of an object.