SQL Server Conexão VB6 e SQL Server 2008

[Bruno da Costa Rezende]

Bom dia, espero que consigam me ajudar!

 

Estou desenvolvendo um projeto em VB6 e estou tentando conectar as informações com o SQL Server, mas infelizmente não consigo.

Já olhei vários vídeos na Internet sobre o assunto, mudei configurações e ainda não obtive êxito.

 

Usando o Debug, dá pra ver que o problema está nessa parte:

    aConnection.Open _
        "Provider=sqloledb;" & _
        "Data Source=Rones-PC;" & _
        "Initial Catalog=DadosDB;" & _
        "Trusted_Connection=yes;"

 

Vale dizer que a variável já foi definida como: Dim aConnection As New ADODB.Connection, no General.

 

Ao tentar compilar, obtenho o seguinte erro:

 

Alguém me ajuda, por favor?