erro ao abrir o recordset

[andinho2 0]

Eu estou desenvolvendo um programinha básico p/ exibir os dados de um banco de dados em um datagrid mas quando eu vou abrir o recordset aparece

a seguinte menssagem : "run-time error '3709' : a conexão não pode ser usada para realizar esta operação. ela está fechada ou é inválida neste contexto".

 

o erro ocorre na seguinte linha: sub_recset.Open

 

 

aqui vai o código:

 

Option Explicit

Private connex As ADODB.Connection

Private recset As ADODB.Recordset

Private sub_recset As ADODB.Recordset

 

 

Private Sub Form_Load()

Dim cont As Long

Dim fld As Field

 

Set connex = New ADODB.Connection

connex.Provider = "Microsoft.Jet.OLEDB.4.0"

connex.ConnectionString = "Data Source=C:\Users\Passos\Desktop\Anderson\teste2\bdteste.mdb"

connex.Open

 

Set sub_recset = New ADODB.Recordset

Set recset = New ADODB.Recordset

 

'------------------------------------cria campo----------------------------------------------------------

 

For Each fld In recset.Fields

sub_recset.Fields.Append fld.Name, fld.Type, fld.DefinedSize, fld.Attributes

Next fld

 

sub_recset.Open 'o erro está nesta linha

 

For cont = 1 To 6

sub_recset.AddNew

For Each fld In recset.Fields

sub_recset(fld.Name) = fld.Value

Next fld

sub_recset.Update

recset.MoveNext

Next cont

recset.Open "SELECT Código, Nome, pontos FROM tblcadteste", connex, adOpenKeyset, , adAsyncFetchNonBlocking

Set DataGrid1.DataSource = recset

End Sub

[Mário Monteiro 179]

qual a linha do erro exatamente?