[Resolvido]Inserir dados em banco sql

Pessoal tenho projeto em access que usa como back-end o banco sql server, todas as tabelas estão vinculada via AttachDSNLess, ate ai tudo bem... mas eu esto precisando de 3 funções adicionar Salvar e excluir, usei o código abaixo para incluir mas não funciona. preciso de uma luz....

Código:

Private Sub cmdAdicionar_Click()
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
On Error Resume Next

'verifica se as caixas de texto estão vazias
Call ValidaCampoVazio

    'abre o recordset da tabela
    Set rst = CurrentDb.OpenRecordset("Select * from dbo_tblFucionarios")
    'adiciona na tabela
                rst.AddNew
                rst("cargo") = Me.txtCargo
                rst("loja") = Me.txtloja
            rst("nomeFuncionario") = Me.txtNomeFuncionario
                rst("apelido") = Me.txtApelido
            rst("cpf") = Me.txtCpf
                rst("rg") = Me.txtRg
            rst("endereco") = Me.txtEndereco
                rst("numero") = Me.txtNumero
            rst("cep") = Me.txtCep
                rst("bairro") = Me.txtBairro
            rst("complemento") = Me.txtComplemento
                rst("cidade") = Me.txtCidade
            rst("uf") = Me.txtUf
                rst("ddd01") = Me.txtDdd01
            rst("prefixo01") = Me.txtPrefixo01
                rst("numero01") = Me.txtNumero01
            rst("email") = Me.txtEmail
                rst("dataCadastro") = Me.txtDataCadastro
            rst("dataNascimento") = Me.txtDataNascimento
                rst("statusFuncionario") = Me.txtStatusFuncionario
                rst.Update
        MsgBox "Registro adicionado com sucesso...", vbInformation
End If
    rst.Close
    Set rst = Nothing
'limpa as caixas de texto
Call limpaCampos
End Sub

Pessoal após quebrar a cabeça por algumas horas descobrir como solucionar o erro segue abaixo a linha do código que foi alterada para correção do erro.

Código:

'Substituio a linha.
Set rst = CurrentDb.OpenRecordset("Select * from dbo_tblFucionarios", )

'Por

Set rst = CurrentDb.OpenRecordset("Select * from dbo_tblFucionarios", dbOpenDynaset, dbSeeChanges)

Ops esqueci de marca como resolvido.

rsrsrsrs, este não deu trabalho ao forum, mas é uma mais valia para que outros com a mesma duvida possam-se salvar.