CAIRO CESAR OLIVEIRA

Sou iniciante no visual basic e estou com o seguinte erro para solucioner: Compile error: Ambiguous name detected Segue o codigo: Private Sub Form_Load() Call MostrarPainel(0) Call ListarLeiloes End Sub Private Sub imgIncluir_Click() Call MostrarPainel(1) End Sub Private Sub imgListar_Click() Call MostrarPainel(0) End Sub Private Sub imgSair_Click() End End Sub Private Sub lblExcluir_Click() If lstLeiloes.ListItems.Count > 0 Then If MsgBox("Confirma a exclusão do Leilão '" & lstLeiloes.SelectedItem.ListSubItems(1).Text & "'?", vbYesNo, "Excluir") = vbYes Then Call Module2.ExcluirLeilao(lstLeiloes.SelectedItem.Text) Call MostrarPainel(0) Call ListarLeiloes End If End If End Sub Private Sub lblCadLeilao_Click() Call MostrarPainel(1) Call LimparForm txtLeilaoCodigo = "<Novo>" End Sub Private Sub lblListaLeiloes_Click() Call MostrarPainel(0) Call Listar_Leiloes End Sub Private Sub lblLeilaoSair_Click() If MsgBox("Deseja sair?", vbYesNo, "Sair") = vbYes Then End End If End Sub Private Sub ListarLeiloes() Dim lst As ListItem If Module2.PesquisarLeilao("") = True Then lstLeiloes.ListItems.Clear Do While Not rs.EOF Set lst = lstLeiloes.ListItems.Add(, , rs.Fields("LeilaoCodigo")) lst.SubItems(1) = rs.Fields("LeilaoNome") rs.MoveNext Loop Call Desconectar End If End Sub Private Sub PesquisarLeilao(LeilaoCodigo As String) Dim lst As ListItem If Module2.PesquisarLeilao(LeilaoCodigo) = True Then lstLeiloes.ListItems.Clear If Not rs.EOF Then txtLeilaoCodigo = rs.Fields("LeilaoCodigo") txtLeilaoNome = rs.Fields("LeilaoNome") txtLeilaoDataInicio = rs.Fields("LeilaoDataInicio") txtLeilaoDataFim = rs.Fields("LeilaoDataFim") txtLeilaoComVenda = rs.Fields("LeilaoComVenda") txtLeilaoComCompra = rs.Fields("LeilaoComCompra") Call MostrarPainel(1) End If Call Desconectar End If End Sub Private Sub MostrarPainel(p As Byte) If p = 0 Then picListaLeiloes.Left = picIncluirLeilao.Left picListaLeiloes.Visible = True picIncluirLeilao.Visible = False lblListaLeiloes.FontUnderline = True lblCadLeilao.FontUnderline = False Else picListaLeiloes.Visible = False picIncluirLeilao.Visible = True lblListaLeiloes.FontUnderline = False lblCadLeilao.FontUnderline = True End If End Sub Private Sub lblSalvar_Click() If txtCodigo = "<Novo>" Then Call Module2.InserirLeilao(txtLeilaoNome, txtLeilaoDataInicio, txtLeilaoDataFim, txtLeilaoComVenda, txtLeilaoComCompra) Else Call Module2.AtualizarLeilao(txtLeilaoCodigo, txtLeilaoNome, txtLeilaoDataInicio, txtLeilaoDataFim, txtLeilaoComVenda, txtLeilaoComCompra) End If Call MostrarPainel(0) Call ListarLeiloes End Sub Private Sub lstLeiloes_DblClick() If lstLeiloes.ListItems.Count > 0 Then Call PesquisarLeilao(lstLeiloes.SelectedItem.Text) End If End Sub Private Sub LimparForm() txtLeilaoNome = "" txtLeilaoDataInicio = "" txtLeilaoDataFim = "" txtLeilaoComVenda = "" txtLeilaoComCompra = "" End Sub

Boa Noite! Sou iniciante no vb e meu sistema esta com o seguinte erro: Compile error: Ambiguous name detected: rs Gostaria de contar com ajuda dos amigos. Private Sub Form_Load() Call MostrarPainel(0) Call ListarLeiloes End Sub Private Sub imgIncluir_Click() Call MostrarPainel(1) End Sub Private Sub imgListar_Click() Call MostrarPainel(0) End Sub Private Sub imgSair_Click() End End Sub Private Sub lblExcluir_Click() If lstLeiloes.ListItems.Count > 0 Then If MsgBox("Confirma a exclusão do Leilão '" & lstLeiloes.SelectedItem.ListSubItems(1).Text & "'?", vbYesNo, "Excluir") = vbYes Then Call Module2.ExcluirLeilao(lstLeiloes.SelectedItem.Text) Call MostrarPainel(0) Call ListarLeiloes End If End If End Sub Private Sub lblCadLeilao_Click() Call MostrarPainel(1) Call LimparForm txtLeilaoCodigo = "<Novo>" End Sub Private Sub lblListaLeiloes_Click() Call MostrarPainel(0) Call Listar_Leiloes End Sub Private Sub lblLeilaoSair_Click() If MsgBox("Deseja sair?", vbYesNo, "Sair") = vbYes Then End End If End Sub Private Sub ListarLeiloes() Dim lst As ListItem If Module2.PesquisarLeilao("") = True Then lstLeiloes.ListItems.Clear Do While Not rs.EOF Set lst = lstLeiloes.ListItems.Add(, , rs.Fields("LeilaoCodigo")) lst.SubItems(1) = rs.Fields("LeilaoNome") rs.MoveNext Loop Call Desconectar End If End Sub Private Sub PesquisarLeilao(LeilaoCodigo As String) Dim lst As ListItem If Module2.PesquisarLeilao(LeilaoCodigo) = True Then lstLeiloes.ListItems.Clear If Not rs.EOF Then txtLeilaoCodigo = rs.Fields("LeilaoCodigo") txtLeilaoNome = rs.Fields("LeilaoNome") txtLeilaoDataInicio = rs.Fields("LeilaoDataInicio") txtLeilaoDataFim = rs.Fields("LeilaoDataFim") txtLeilaoComVenda = rs.Fields("LeilaoComVenda") txtLeilaoComCompra = rs.Fields("LeilaoComCompra") Call MostrarPainel(1) End If Call Desconectar End If End Sub Private Sub MostrarPainel(p As Byte) If p = 0 Then picListaLeiloes.Left = picIncluirLeilao.Left picListaLeiloes.Visible = True picIncluirLeilao.Visible = False lblListaLeiloes.FontUnderline = True lblCadLeilao.FontUnderline = False Else picListaLeiloes.Visible = False picIncluirLeilao.Visible = True lblListaLeiloes.FontUnderline = False lblCadLeilao.FontUnderline = True End If End Sub Private Sub lblSalvar_Click() If txtCodigo = "<Novo>" Then Call Module2.InserirLeilao(txtLeilaoNome, txtLeilaoDataInicio, txtLeilaoDataFim, txtLeilaoComVenda, txtLeilaoComCompra) Else Call Module2.AtualizarLeilao(txtLeilaoCodigo, txtLeilaoNome, txtLeilaoDataInicio, txtLeilaoDataFim, txtLeilaoComVenda, txtLeilaoComCompra) End If Call MostrarPainel(0) Call ListarLeiloes End Sub Private Sub lstLeiloes_DblClick() If lstLeiloes.ListItems.Count > 0 Then Call PesquisarLeilao(lstLeiloes.SelectedItem.Text) End If End Sub Private Sub LimparForm() txtLeilaoNome = "" txtLeilaoDataInicio = "" txtLeilaoDataFim = "" txtLeilaoComVenda = "" txtLeilaoComCompra = "" End Sub