Compile error: Ambiguous name detected

[CAIRO CESAR OLIVEIRA]

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