VB6 + Access 2000

Pessoal boa noite,

Estou desenvolvendo uma aplicação VB6 + Access 2000 e estou tendo uma dificuldade.
Estou utilizando conexão ADO e quando vou incluir um registro no banco de dados, ocorre o seguinte erro:
Run time error 13: Type mismatch
O curioso é que o registro é gravado no banco, apesar do erro.
Alguém pode me ajudar a resolver este problema?
Abaixo o código fonte para

Public Sub AbreConexao()
    Dim slcaminho As String
    slcaminho = App.Path & "DBFINANCEIRO.mdb"

    Set conexao = New ADODB.Connection


    conexao.ConnectionString = " Provider = microsoft.jet.oledb.4.0;" & _
    "data source=" & slcaminho

    conexao.Open
End Sub

Private Sub gravar(operacao As String)
    Select Case operacao
        Case "I"
            sgquery = "insert into banco(CODBANCO,NOMEBANCO,ATIVO) " & vbCr & _
            "values('" & Trim(mskcodbanco) & "','" & Trim(Txtnomebanco) & "','" & IIf(Chkativo = 1, "S", "N") & "')"
            Set rs = conexao.Execute(sgquery)
        Case "A"
            sgquery = "update banco set NOMEBANCO = '" & Trim(Txtnomebanco) & "',ATIVO =  '" & IIf(Chkativo = 1, "S", "N") & "'" & vbCr & _
            "where CODBANCO = '" & Trim(mskcodbanco) & "'"
            Set rs = conexao.Execute(sgquery)
    End Select
End Sub