alguem pode me ajudar

nao sei qual a referencia que faz isto funcionar

dim conn3 As Connection = New Connection

Dim connMode3 As Integer = ConnectModeEnum.adModeUnknown
conn3.CursorLocation = CursorLocationEnum.adUseServer
conn3.Open(ConnectionString, "", "", connMode3)
Dim cmdType As Integer = CommandTypeEnum.adCmdText
Dim rs As _Recordset = conn3.Execute(sql3)

ERROS EM NEGRITO

USANDO

Imports System.Data
Imports System.Data.OleDb
Imports ADODB
Imports System.Data.OleDb.OleDbConnection
Imports System.Data.Odbc
Imports System.Data.Odbc.OdbcConnection
Imports System.Data.Odbc.OdbcDataReader
Imports System.Drawing