VB6 INSTALANDO WIN8 ERROS

SOUZANF 26/10/2015 19:53:12
#453119

Pessoal blz comprei um pc novo que veio com win8 e fui instalar o vb para colocar o sistema de cadastro cliente pra rodar e estou tendo problemas com esta linha de código!

[ô]BUSCA CLIENTES Usuarios
Dim db As Database
Dim query As String
Dim dyn As Recordset

Set db = OpenDatabase(App.path & [Ô]\Cadastro.Mdb[Ô], False, False, [Ô];PWD=senha[Ô])
query = [Ô]Select * From Usuarios order by Usuario[Ô]
Set dyn = db.OpenRecordset(query, dbOpenDynaset) <-------------AQUI DA O ERRO!
While Not dyn.EOF
Usuario.AddItem dyn([Ô]Usuario[Ô]) & [Ô][Ô]
dyn.MoveNext
Wend
db.Close

QUE PODE SER?