RELACIONANDO ITENS DE VARIAS TABELAS

Citação:

:
Dim dr As OleDbDatareader = cmd.executereader()

Citação:

:
Basta ENTENDER o que está fazendo, não só copiar e colar código...
Entenda que [Ô]exemplo[Ô] não é código copia-cola-roda, tem que entender um mínimo do que está fazendo...

Citação:

:
Desculpe a franqueza, mas deveria ter começado por aí. é estratégia [Ô]kamikaze[Ô] sair fazendo coisas que nem sequer sabe como. Imagina a galera do Projeto Manhattan, sair fazendo sem antes estudar muito bem? Claro a situação é diferente, mas preparo é o começo; Se constrói uma casa começando pelo alicerce, não pelo telhado...
Não quero ser rude, mas estudar é o começo. Comece com coisas simples, para entender bem, para depois sair fazendo aplicações com um nível de complexidade desses(que nem é tão alto, mas para um iniciante, é [Ô]grego[Ô])

Citação:

:
Por favor, não entenda mal, não estou de maneira nenhuma querendo ofender. Já fui iniciante também, e sei como é quando as coisas [Ô]não entram na cabeça[Ô]. Claro que isso foi há alguns anos, no tempo do computador a lenha ainda.
Mas voltando ao teu caso, acredito que o seu comando de subtrair, seja um simples update, certo? Mostra ele...

Citação:

:
Quase isso :)
Você ainda não está fazendo o loop para baixar todos os ítens do kit:
Dim cs As String = My.Settings.EstoqueConnectionString1
Dim conect As New OleDb.OleDbConnection(cs)
Try
conect.Open()
Dim cmd As New OleDb.OleDbCommand([Ô]Select CodigoProduto, saldo from tb_itemkit where CodigoKit = [Ô] & txtcod.Text, conect)
[ô]conect.ConnectionString = cs
Dim dr As OleDbDataReader = cmd.ExecuteReader()
do while not dr.eof
cmd.CommandText = ([Ô]update tb_estoque set saldo = saldo - [Ô] & CDbl(txtqt.Text) * dr([Ô]saldo[Ô]) & [Ô] Where cod_produto = [Ô] & dr([Ô]CodigoProduto[Ô]))
If cmd.ExecuteNonQuery Then
MsgBox([Ô]![Ô])
End If
loop
Catch ex As Exception
End Try


Note que o campo [Ô]saldo[Ô] na tabela [Ô]tb_itemkit[Ô] é um nome meio estranho. esse campo, deveria ser a quantidade de ítens no kit. Considere um carro por exemplo, ele é um [Ô]kit[Ô] de peças:
1 motor
4 portas
4 rodas
1 volante
2 bancos.....