[Resolvido] add dados no BD

Boa tarde pessoal, preciso de uma ajuda aqui.

Então estou fazendo um projeto para cadastro de estoque, exitem duas tabelas a de Vendas e a ItensVendas, estou usando um msflexgrid para esta última. Só que o botão gravar não está executando os comandos, segue abaixo os comandos, me ajudem a achar o erro!!

Private Sub cmdGravar_Click()
Call ConectaBd
Set rs = New ADODB.Recordset
rs.ActiveConnection = cn

i = 1
Do While i < msfItens.Rows - 1
vCodigo = msfItens.TextMatrix(i, 0)
vDesc = msfItens.TextMatrix(i, 1)
vQtd = msfItens.TextMatrix(i, 2)
vUnitario = msfItens.TextMatrix(i, 3)
vTot = msfItens.TextMatrix(i, 4)
vQtdAnteriorItem = msfItens.TextMatrix(i, 5)

rs.Open "Select * from Tab_ItensVendas where NumVenda=" & txtNumVenda.Text

 If rs.EOF Then
 Set rs = New ADODB.Recordset
 rs.ActiveConnection = cn
 rs.Open "INSERT INTO Tab_ItensVendas (NumVenda, CodProd, Desc, Qtd, Unitario, Tot) VALUES ('" & txtNumVenda.Text & "','" & vCodigo & "','" & vDesc & "','" & vQtd & "','" & vUnitario & "','" & vTot & "')"
 MsgBox "Venda cadastrada com sucesso"
 End If

 If Not rs.EOF Then
 MsgBox "Venda já cadastrada"
 End If

 i = i + 1
 rs.Close
 Loop

End Sub Obrigado a todos!!!