em funcao de insercao de dados

ola pessoal, fiz um modulo que contem uma funcao para abrir o banco, fechar o banco e inserir dados no banco, mas quando clico no botao que chama a funcao de inserir ele me da a menagem

o conjunto de registros atual nao oferece suporte para atualizacao isso pode ser uma limitacao do provedor ou do tipo de bloqueio selectionado

Setando variaveis publicas

'*************************************************************************

Public conexao As ADODB.Connection

Public tabeladepto As ADODB.Recordset

'*************************************************************************

'FUNCAO PARA ABRIR O BANCO

'*********************************************

Public Function ABREDB()

'setando uma nova conexao

Set conexao = New ADODB.Connection

'verificando a conexao

If conexao.State = adStateClosed Then

conexao.ConnectionString = "Provider = Microsoft.jet.OLEDB.4.0;" & _

"Data Source = " & App.Path & "\suporte97.mdb;Persist Security Info=False;"

conexao.Open

'teste

MsgBox "Fez conexao"

End If

End Function

'**********************************************

'FUNCAO PARA FECHAR O BANCO

'**********************************************

Public Function FECHADB()

'verifica conexão

If conexao.State = adStateOpen Then

conexao.Close

'teste

MsgBox "fechou a conexao"

End If

End Function

'**********************************************

FUNCAO INSERE DADOS

'***********************************

Public Function INSEREDEPTOS()

ABREDB

Set tabeladepto = New ADODB.Recordset

Dim SQL As String

SQL = "SELECT * FROM TBDEPTO"

tabeladepto.Open SQL, conexao

tabeladepto.AddNew

tabeladepto![nomedepto] = Valor1

tabeladepto![nomedepto] = Valor2

tabeladepto.Update

FECHADB

End Function

http://forum.imasters.com.br/public/style_emoticons/default/ninja.gif

GRATO