Estou fazendo assim, executo o Function ABRIRBANCO que esta em um modulo quando abro o sistema, em determinado momento execulto a Sub Config que esta em um Form, mas o programa para de responder quando executa esta linha "adoPrimaryRS.Open sql, ABRIRBANCO.db, adOpenStatic, adLockOptimistic" que esta na Sub.

A tabelas CADASTROCAMPOS tem 70 mil registros e a tabela CADASTROTABERLAS tem 700, ou seja , cada registro na tabela CADASTROTABELAS tem 100 registros relacionados na tabela CADASTROCAMPOS

'em um modulo

Public db As Connection
Public NomeLayout As String
Public CodigoLayout As String

Public Function ABRIRBANCO()

Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;driver={SQL Server};server=JRSISTEMASXPJRSERVER;uid=;pwd=;database=JRSISTEMAS;"

End Function


Public Sub Config()
  
sql = "SELECT CODIGOCAMPO , CODIGOTABELA  FROM CADASTROCAMPOS, CADASTROTABELAS WHERE  CADASTROCAMPOS.TABELACAMPO LIKE CADASTROTABELAS.CODIGOTABELA"

Dim adoPrimaryRS As Recordset
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open sql, ABRIRBANCO.db, adOpenStatic, adLockOptimistic
    
'execulto rotina
  
adoPrimaryRS.Close
    
    Unload Me
    
End Sub


Se deixar a tabela CADASTROCAMPOS vazia o sistemas funciona normal, o que estou fazendo de errado? Estou usando Sql Server 2000. Como posso resover este problema?

Bem kara, na minha opnião o sistema não trava, ele deve estar demorando pra abrir a tabela, pois afinal, são 70 mil registros, é um numero consideravel, ainda + se o micro não for muito potente, e mesmo usando um banco como o sql server.

Vc já tentou fazer isso com poucos registros, tipo sei lá, quinhentos, mil registros?

Se funcionar, com certeza é isso que esta acontecendo.

Agora tambem seria legal vc ver se não tem como fazer uma filtragem dos dados, geralmente não precisamos de todo o conteudo da tabela, vc pode filtrar de acordo com a nessecidade, por data, codigo, enfim, pelo campo chave... isso melhora consideravelmente a performace. T+

Valeu pela resposta, ja deu certo, na realidade ele nao trava mesmo, o meu micro é um P4 1900 com 512 de ram, mas o que mudei foi o LIKE por =, ajudou bastante