ERRO NO CODIGO.

KELVINCD 14/01/2013 10:35:37
#417309

Boas pessoal, estou noamente com duvidas.
estou ultilizando o codigo:
Private Sub teste()
Dim cod_id As Long
Dim rsDados As ADODB.Recordset
Set rsDados = New ADODB.Recordset
rsDados.CursorLocation = vCursorLocation
rsDados.CursorType = vCursorType
rsDados.LockType = vLockTypeLeitura
rsDados.Source = [Ô]select count(*) from lotofacil t where (t.n1 = 1 or t.n2 = 1 or t.n3 = 1 or t.n4 = 1 or t.n5 = 1 or t.n6 = 1 or t.n7 = 1 or t.n8 = 1 or t.n9 = 1 or t.n10 = 1 or t.n11 = 1 or t.n12 = 1 or t.n13 = 1 or t.n14 = 1 or t.n15 = 1)[Ô]
rsDados.ActiveConnection = dados
rsDados.Open
a1.text = (count)
End Sub

Tenho um banco de dados FireBird e a tabela lotofacil com 15 colunas.
quando utilizo esse comando:
[Ô]select count(*) from lotofacil t where (t.n1 = 1 or t.n2 = 1 or t.n3 = 1 or t.n4 = 1 or t.n5 = 1 or t.n6 = 1 or t.n7 = 1 or t.n8 = 1 or t.n9 = 1 or t.n10 = 1 or t.n11 = 1 or t.n12 = 1 or t.n13 = 1 or t.n14 = 1 or t.n15 = 1)[Ô]
direto no banco ele me retorna o resultado de 526, mas quando executo ele nesse comando acima no vb6 ele me retorna 246. onde esta o erro?