E ai galera, blz ?

Estamos mudando nosso banco de dados de Access para SQL Server, e estamos com alguns problemas.
Não conseguimos colocar o indice na varialvel recordset e posteriormente executar um seek.
o erro é : "O provedor atual não oferece suporte para a interface necessária à funcionalidade Índice."
Esse erro ocorre exatamente na linha: TB07.Index = "PK_AP07Cliente"

Existe possibilidade de trabalhar com Index e Seek igual a uma conexão DAO ?
Será que estamos utilizando o provider errado : "MSDASQL"

Veja como estamos declarando as variáveis e realizando a conexão

'Declaração Variáveis
Public DBPrin As ADODB.Connection
public TB07 AS New ADODB.Recordset

'Conexão com o Servidor
    With DBPrin
       .Provider = "MSDASQL"
       .ConnectionString = "Driver={SQL Server}; Server=Servidor; Database=AutoSystem2005;PWD=SabAdm;UID=Sabtech"
       .Open                 '(Usuário)     (Senha)    (Caminho e Nome do banco de dados)
    End With

'Abrindo a Tabela
    TB07.Open "AP_07Cliente", DBPrin, adOpenDynamic, adLockOptimistic

Não existe a menor chance de se usar funções de conexões DAO, como o Seek e Find, em uma conexão ADO. O ideal para o teu caso é começar a aplicar instruções SQL para procura, inserção, modificação, filtragem... Esqueça as funções do objeto DAO, em ADO elas não existem e esse é o motivo da msg de erro que vc está recebendo.

Portanto a melhor saída para o teu caso(infelizmente, não é a curto prazo) é estudar um pouco sobre SQL. Garanto que você vai se surpreender com os resultados.

Morgon. Tente fazer desta maneira:

Public Sub ConectaBanco()

 

cnt.Open ("Provider=SQLOLEDB.1;Persist Security Info=False; User ID = UsrSuporte;Password = PwdSuporte;Initial Catalog= Suporte;Data Source=LABORATORIO")

 

End Sub