Private Sub btnSelect_Click(ByVal sender As System.Object, _ByVal e As System.EventArgs) Handles btnSelect.ClickDim strQuery As String
' 检索以字母“A”开头的联系人strQuery = "[FileAs] >= " & ControlChars.Quote & "A" & ControlChars.QuotestrQuery = strQuery & " AND [FileAs] < " & "B" & ControlChars.QuotemyContacts = myOutlookSession.Contacts.Items.Restrict(strQuery)End Sub