PROBLEMAS AO CARREGAR DADOS FIREBIRD COM LISTVIEW

Option Explicit
Private Sub CARREGADADOS()
Dim SQLfu As String
Dim CRITERIOfu As String

Set RSFUN = New ADODB.Recordset
SQLfu = [Ô]SELECT * FROM Funcionarios WHERE Funcionarios.Codigo =[ô][Ô] & txtCodigo.Text & [Ô][ô][Ô]

With RSFUN
.Open SQLfu, CNN, adOpenDynamic, adLockOptimistic

If Not (.EOF = True And .BOF = True) then 
txtCodigo.Text = !Codigo
txtInclusao.Text = Format(!INCLUSAO, [Ô]dd/mm/yyyy[Ô])
txtAlteracao.Text = Format(Date, [Ô]dd/mm/yyyy[Ô])
txtUsuario.Text = frmPrincipal.txtUsuario.Text
txtNome.Text = !NOME
txtSexo.Text = !SEXO
txtNasc.Text = !NASCIMENTO
TXTrg.Text = !RG
txtCPF.Text = !CPF
cmbEndereco.Text = !ENDERECO
txtNumero.Text = !NUMERO
cmbBairro.Text = !BAIRRO
cmbCidade.Text = !Cidade
txtCEP.Text = !CEP
txtUF.Text = !UF
txtTel.Text = !TEL
txtCel.Text = !CEL
cmbFuncao.Text = !Funcao
txtSalario.Text = !SALARIO
txtCom.Text = !COMISSIONADO
txtTrab.Text = !CARTRAB
txtAdmissao.Text = !ADMISSAO
txtDemissao.Text = !DEMISSAO
txtMotivo.Text = !MOTIVO
txtOBS.Text = !OBSERVACAO

If txtCom.Text = [Ô]1[Ô] Then
    chkComissao.Value = True
Else
    chkComissao.Value = False
End If
End If
End With
End Sub

Private Sub Editar()
If RSFUN.RecordCount = 0 Then
    MsgBox [Ô]Não existem dados a serem editados.[Ô], vbCritical, [Ô]GWorks Softs[Ô]
    Exit Sub
Else
    Unload Me
    frmEditFunc.txtCodigo.Text = lstRegistro.ListItems(lstRegistro.SelectedItem.Index)
    frmEditFunc.Show
End If
End Sub 

Private Sub Editar()
If RSFUN.RecordCount = 0 Then
    MsgBox [Ô]Não existem dados a serem editados.[Ô], vbCritical, [Ô]GWorks Softs[Ô]
    Exit Sub
Else
    [ô]Unload Me
    msgbox lstRegistro.ListItems(lstRegistro.SelectedItem.Index)
    [ô]frmEditFunc.Show
End If
End Sub