Noget af navnet

Navn = \"Kim Ande\"
If InStr(Navn, \"Ande\") Then
  \' fundet
Else
  \' ikke fundet
End If

Dim SearchString, SearchChar, MyPos
SearchString =\"XXpXXpXXPXXP\"    \' String to search in.
SearchChar = \"P\"    \' Search for \"P\".

\' A textual comparison starting at position 4. Returns 6.
MyPos = Instr(4, SearchString, SearchChar, 1)

Sorry, men jeg har vidst glemt noget:
Dim soeg As String
On Error Resume Next
soeg = InputBox(\"Hvilken mailserver søger du efter?\")

Data1.Recordset.MoveFirst

Do While Data1.Recordset.EOF = False

If Data1.Recordset(\"servermappe\") = soeg Then

Exit Sub

End If

Data1.Recordset.MoveNext


Loop

MsgBox \"Mailserveren \" & soeg & \" findes ikke\"
Det er den her som skal kunne søge efter noget af navnet...

If InStr(servermappe, soeg) Then

exit sub

Jelzin101>>>

InStr??????

Mener du kke

if data1.recordset(servermappe,soeg) then

if data1.recordset(\"servermappe,soeg\") then

Den er lidt underlig...Ligemeget hvad jeg søger efter så viser den kun den første i dattabasen..

Er der slet ingen som kan svare mig på det her spørgsmål?

if Instr(data1.Recordset(\"servermappe\"), soeg) then

exit sub

-det er et gæt og jeg ved ikke om det virker - men prøv det.

Jelzin101>> Endnu engang har du gjordt det...takker

np :) takker også:)