SELECT FIREBIRD - ERRO

  Private Sub selecionaUsuario()

        Try
            Using con As FbConnection = conectarFirebird()

                con.Open()

                Using strCom As FbCommand = New FbCommand([Ô]SELECT A.DataCadastro, A.Nome, A.Login, B.Tipo, A.Cargo, A.RG, A.idLogin [Ô] & _
                                                          [Ô]FROM tbLogin A [Ô] & _
                                                          [Ô]INNER JOIN tbLoginTipo B ON A.Tipo = B.idLoginTipo [Ô] & _
                                                          [Ô]WHERE A.Nome = @Nome [Ô] & _
                                                          [Ô]AND A.Login = @Login[Ô], con)

                    strCom.Parameters.AddWithValue([Ô]@Login[Ô], frmLogin.cbNome.Text)
                    strCom.Parameters.AddWithValue([Ô]@Nome[Ô], frmLogin.txtNome.Text)

                    Using dr As FbDataReader = strCom.ExecuteReader()

                        dr.Read()

                        If dr.HasRows Then
                            txtCodigo.Text = dr([Ô]idLogin[Ô]).ToString
                            txtDataCadastro.Text = dr([Ô]DataCadastro[Ô]).ToString
                            txtNome.Text = dr([Ô]Nome[Ô]).ToString
                            txtUsuario.Text = dr([Ô]Login[Ô]).ToString
                            cbGrupo.Text = dr([Ô]Tipo[Ô]).ToString
                            txtRG.Text = dr([Ô]RG[Ô]).ToString
                            txtCargo.Text = dr([Ô]Cargo[Ô]).ToString
                        End If
                    End Using
                End Using
            End Using
            Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

    End Sub