Set rb = New Recordset
Set rb.ActiveConnection = conn
rb.CursorType = adOpenKeyset
rb.CursorLocation = adUseClient
rb.LockType = adLockOptimistic
If rb.State = 1 Then
rb.Close
End If
rb.Source = "SELECT DISTINCT * FROM Archiv WHERE Name LIKE '" & Sstring & "' _" & _
  "ORDER BY Name"