ENVIO UN CODIGO...PRESENTA ERROR DE BOF Y EOF QUE PUEDO HACER....

ONOFRE
17 de Febrero del 2004
SI ALGUIEN ME PUEDE AYUDAR, ME MARCA ERROR EOF O BOF, EL REGISTRO ACTUAL SE ELIMINO O EL VALOR DE BOF O EOF ES TRUE...COMO LO SOLUCIONO Y POR QUE ME PASA ESTO....

Private Sub List1_Click()
On Error GoTo Error1
'Dim Clave As String
Dim clave1 As String
'Dim Mensaje, Estilo, Título, Respuesta
Text1.Text = List1.Text
List1.Visible = False
Clave = Text1.Text
' abro la base de datos
cn.Open "inventario", "", ""
Busca = "SELECT * FROM computadora, monitor, impresora, swith where computadora.cmnusr ='" & Clave & "' or monitor.mnnsmt ='" & Clave & "' or impresora.imnsim ='" & Clave & "' or swith.swnusr= '" & Clave & "'"
'rst
Set rst = cn.Execute(Busca)

If Clave = rst!cmnusr Then
Text6.Text = rst!cmninv
guarda1 = Text6.Text
Text2.Text = "COMPUTADORA"
Text2.Enabled = False
Text8.Text = rst!cmfmto
Text12.Text = rst!cmcvdp
clv2 = Text12.Text
b2 = "select * from departamento where dpcvdp ='" & clv2 & "'"
Set rst1 = cn.Execute(b2)
Text12.Text = rst1!dpnodp
clv3 = rst1!dpcvae
b3 = "select * from area where aecvae ='" & clv3 & "'"
Set rst2 = cn.Execute(b3)
Text13.Text = rst2!aenoma
b4 = "select * from encargado where ecnusr ='" & Clave & "'"
Set rst4 = cn.Execute(b4)
Text14.Text = rst4!ecnoec

Else
If Clave = rst!mnnsmt Then
m = True
Text6.Text = rst!mnninv
Text2.Text = "MONITOR"
Text8.Text = rst!mnfmto
Text14.Text = rst!mnnusr
clv1 = Text14.Text
b1 = "select * from encargado where ecnusr ='" & clv1 & "'"
Set rst1 = cn.Execute(b1)
Text14.Text = rst1!ecnoec
b2 = "select * from computadora where cmnusr='" & clv1 & "'"
Set rst2 = cn.Execute(b2)
Text12.Text = rst2!cmcvdp
clv2 = Text12.Text
b3 = "select * from departamento where dpcvdp='" & clv2 & "'"
Set rst3 = cn.Execute(b3)
Text12.Text = rst3!dpnodp
Text13.Text = rst3!dpcvae
clv3 = Text13.Text
b4 = "select * from area where aecvae='" & clv3 & "'"
Set rst4 = cn.Execute(b4)
Text13.Text = rst4!aenoma

Else
If Clave = rst!imnsim Then
i = True
Text6.Text = rst!imninv
Text2.Text = "IMPRESORA"
Text8.Text = rst!imfmto
'Text12.Text = rst!imninv
Text14.Text = rst!imnusr
clv1 = Text14.Text
b1 = "select * from encargado where ecnusr ='" & clv1 & "'"
Set rst1 = cn.Execute(b1)
Text14.Text = rst1!ecnoec
b2 = "select * from computadora where cmnusr='" & clv1 & "'"
Set rst2 = cn.Execute(b2)
Text12.Text = rst2!cmcvdp
clv2 = Text12.Text
b3 = "select * from departamento where dpcvdp='" & clv2 & "'"
Set rst3 = cn.Execute(b3)
Text12.Text = rst3!dpnodp
Text13.Text = rst3!dpcvae

clv3 = Text13.Text
b4 = "select * from area where aecvae='" & clv3 & "'"
Set rst4 = cn.Execute(b4)
Text13.Text = rst4!aenoma

Else
If Clave = rst!swnusr Then
W = True
Text6.Text = rst!swninv
Text2.Text = "SWITH"
Text8.Text = rst!swfmto
Text12.Text = rst!swubic
Text13.Text = rst!swubic
Text14.Text = "PERSONAL DE SISTEMAS"
Set cn = Nothing
Set rst = Nothing
End If
'cerre swith

Set cn = Nothing
Set rst = Nothing
Set rst1 = Nothing
Set rst2 = Nothing
Set rst3 = Nothing
Set rst4 = Nothing
End If
'cerre impresora
Set cn = Nothing
Set rst = Nothing
Set rst1 = Nothing
Set rst2 = Nothing
Set rst3 = Nothing
Set rst4 = Nothing
End If
'cerre monitor

Set cn = Nothing
Set rst = Nothing
Set rst1 = Nothing
Set rst2 = Nothing
Set rst3 = Nothing
Set rst4 = Nothing
Set rst5 = Nothing
End If
'cerre pc

Exit Sub
Error1:
Set cn = Nothing
Set rst = Nothing
Set rst1 = Nothing
Set rst2 = Nothing
Set rst4 = Nothing
MsgBox ("La operación Generó algunos Errores" & Err.Description)
End Sub