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…