Erro ao tentar acessar SQL Server

Pessoal, estou com este erro neste código, depois que tentei mudar o acesso a banco Access para SQL Server:

Error 4 Overload resolution failed because no accessible 'New' can be called without a narrowing conversion:

'Public Sub New(selectCommandText As String, selectConnection As System.Data.OleDb.OleDbConnection)': Argument matching parameter 'selectConnection' narrows from 'Object' to 'System.Data.OleDb.OleDbConnection'.

'Public Sub New(selectCommandText As String, selectConnectionString As String)': Argument matching parameter 'selectConnectionString' narrows from 'Object' to 'String'. C:\Autocom\CadProdutos.aspx 31 25 C:\Autocom\

obs: marquei a linha em vermelho

================================================================

Dim sConnString As String = _

"Provider=sqloledb;" & _

"Data Source=Servidor;" & _

"Initial Catalog=Autocom;" & _

"User Id=;" & _

"Password="

Dim Conexao_1 = New OleDb.OleDbConnection(sConnString)

'define oleDbDataAdapter

Dim DataAdapter_1 As OleDbDataAdapter

'Cria Dataset

Dim Data_Set_Tabelas As New DataSet()

Sub Page_Load(ByVal Sender As Object, ByVal E As EventArgs)

If Not IsPostBack Then Amarra_Dados()

End Sub

Sub Amarra_Dados()

**===>>> ele dá erro aqui DataAdapter_1 = New OleDbDataAdapter("Select * from Produto", Conexao_1)**

 

 'Criar a tabela em memória denominada Cadastro_Produtos dentro do

 'Dataset denominado Data_Set_Tabelas e preencher a tabela com os dados obtidos

 'pelo "Select * from Produtos"

 DataAdapter_1.Fill(Data_Set_Tabelas, "Cadastro_Produtos")

 

 DataGrid_1.DataSource = Data_Set_Tabelas.Tables("Cadastro_Produtos")

 

 DataGrid_1.DataBind()

 End Sub

 

 

 

 'Rotina controla paginação

 Sub Controlar_paginas(ByVal Sender As Object, ByVal E As DataGridPageChangedEventArgs)

 DataGrid_1.CurrentPageIndex = E.NewPageIndex

 Amarra_Dados()

 End Sub