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…