vb Søgefunktion virker ikke

Jeg har denne simple form, men ikke desto mindre kan jeg ikke få søgefunktionen til at virke!

Den vil ikke have "Private Sub cmdsøg_Click(søg As Integer)", men ikke desto mindre kan den heller ikke finde ud af hvis jeg kalder den "Private Sub cmdsøg_Click()"

kan i se fejlen?

Option Explicit
Dim elev As elevtype

Private Sub cmdslut_Click()
  Close
  End
End Sub
Private Sub cbofundet_Click()
    txtposthent = cbonr.List(cbofundet, ListIndex)
    txtposthent_KeyPress (13)
End Sub

Private Sub cmdsøg_Click(søg As Integer)
    søg = txtnavn
    For i = 1 To lblantalposter
      Get 1, i, elev
        If elev.navn = søg Then
          cbofundet.AddItem søg
          cbonr.AddItem i
        End If
    Next i
     
End Sub

Private Sub Form_Activate()
  Open App.Path & "\kp.dat" For Random As 1 Len = Len(elev)
  lblantalposter = LOF(1) / Len(elev)
End Sub

Private Sub txtpostgem_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    elev.navn = txtnavn
    elev.adresse = txtadr
    elev.tlf = txttlf
    elev.klasse = txtklas
    lblantalposter = LOF(1) / Len(elev)
    Put 1, txtpostgem, elev
  End If
End Sub

Private Sub txtposthent_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then  'Hvis der trykkes på RETUR
    cmdgemret.Visible = True
    Get 1, txtposthent, elev
    txtnavn = elev.navn
    txtadr = elev.adresse
    txttlf = elev.tlf
    txtklas = elev.klasse
    lblantalposter = LOF(1) / Len(elev)
  End If
End Sub


Private Sub txtpostslet_KeyPress(KeyAscii As Integer)
    Dim i As Integer
    If KeyAscii = 13 Then
      If Val(txtpostslet) > Val(lblantalposter) Then
          MsgBox "du er uden for definationen kammerat", 48, "fejl din Klovn"
      Else
            Open App.Path & "\ny.dat" For Random As 2 Len = Len(elev)
            For i = 1 To txtpostslet - 1
              Get 1, i, elev
              Put 2, i, elev
            Next i
            For i = txtpostslet + 1 To lblantalposter
              Get 1, i, elev
              Put 2, i - 1, elev
            Next i
            Close
            Kill App.Path & "\kp.dat"
            Name App.Path & "\ny.dat" As App.Path & "\kp.dat"
            Open App.Path & "\kp.dat" For Random As 1 Len = Len(elev)
            lblantalposter = LOF(1) / Len(elev)
        End If
    End If
End Sub

Private Sub cmdgemret_Click()
 
    txtpostgem = txtposthent
    txtpostgem_KeyPress (13)
    cmdgemret.Visible = False

End Sub

Hvis i skal bruge alle filerne, så skriv lige!

På forhånd tak Mr bob