Error de compilación

Hola tengo un proyecto en visual basic el cual tiene el siguiente código, pero lo intento ejecutar y me aparece "error de compilación no se encuentra el proyecto o la biblioteca" y marca el trim que aparece de primero por favor si me puede ayudar se lo agradecería mucho.
Private Sub cmdAceptar_Click()
Dim rstContraceña As New ADODB.Recordset
On Local Error Resume Next
If cboUsuario.Enabled = False Then
mdiPanel.Show
mdiPanel.sbrBarraEstado.Panels(1).Text = "Sin Usuario"
Unload Me
Else
If Len(Trim(cboUsuario.Text)) > 0 And Len(Trim(txtContraseña)) > 0 Then
rstContraceña.Open "Select Usuario,Contraseña From Usuarios WHERE Usuario = '" & cboUsuario & "'" & _
" AND Contraseña = '" & txtContraseña & "'", cnn, adOpenDynamic, adLockOptimistic
If rstContraceña.BOF And rstContraceña.EOF Then
MsgBox "Acceso denegado", vbCritical, "Denegado"
Else
mdiPanel.Show
mdiPanel.sbrBarraEstado.Panels(1).Text = rstContraceña.Fields("Usuario")
Unload Me
End If