Error en colsulta update.

Hola Williams:

Como t eestoy mareando. SOn en realidad muy pocos registros si logro que nada más cace los que son faltantes según tu instrucción:

 Using cnn As DbConnection = da.CreateConnection()

                ' Creamos el Commando
                Dim cmd As DbCommand = cnn.CreateCommand

                cmd.CommandText = "SELECT i.Cód_GC FROM Balances b Right Join ImportacionDatos i ON b.Cód_GC = i.Cód_GC WHERE  b.[Cód_GC] Is NULL "

                'Añadimos el parámetro
                cmd.Parameters.Add(Configuracion.CreateParameter(cmd, "@empresa", VarGlobal.StrCodEmpresa))

                ' Asignamos la conexión al comando
                cmd.Connection = cnn
                cnn.Open()

                Dim IDFaltantes As String = String.Empty
                Using dr As DbDataReader = cmd.ExecuteReader()
                    While dr.Read()
                        'While Reader.Read
                        IDFaltantes += String.Concat(dr.GetString(0).ToString(), " ,")                    End While
                End Using

                MsgBox(String.Format("Registros Faltantes: {0}", IDFaltantes.TrimEnd(","c) & vbCrLf & vbCrLf & "Acepte para continuar.", "REGISTROS NO ENCONTRADOS", vbInformation))'Aqui pondría las 2 nuevas instrucciones que me indicas.

Esos faltantes son los que necesito acoplar a los de 3 digitos y despues borrarlos.

Había puesto la instrucción debajo de esta que ves, así si solo puedo indicarle los fanltantes y con lo que me indicas estaría el problema solucionado. ¡Que dolor de cabeza!.

Ta me indicarás si es correcto porque creo que sería rapidísimo la ejecuución de las dos instrucciones que me indicas.

Un fuerte arazo.

Gemma