在模块级别中使用，用于声明字符串比较时所用的缺省比较方法。

语法

Option Compare {Binary | Text | Database}

说明

如果使用，则 Option Compare 语句必须写在模块的所有过程之前。

Option Compare 语句为模块指定字符串比较的方法（Binary、Text 或 Database）。如果模块中没有 Option Compare 语句，则缺省的文本比较方法是 Binary。

Option Compare Binary 是根据字符的内部二进制表示而导出的一种排序顺序来进行字符串比较。在 Microsoft Windows 中，排序顺序由代码页确定。典型的二进制排序顺序如下例所示：

A < B < E < Z < a < b < e < z 
Option Compare Text 根据由系统国别确定的一种不区分大小写的文本排序级别来进行字符串比较。当使用 Option Compare Text 对相同字符排序时，会产生下述文本排序级别：

(A=a) < ( _=_) < (B=b) < (E=e) < (_=_) < (Z=z) < (_=_) 

Option Compare Database 只能在 Microsoft Access 中使用。当需要字符串比较时，将根据数据库的国别 ID 确定的排序级别进行比较。


下列常数由 Visual Basic for Applications 中的类型库定义，可用来在代码中的任何地方代替实际值：

常数 值 描述 
VbUseCompareOption -1 使用Option Compare语句的设置进行比较。 
VbBinaryCompare 0 进行二进制的比较。 
VbTextCompare 1 进行文字的比较。 
vbDatabaseCompare 2 用于 Microsoft Access(仅限于Windows)，进行以数据库所含信息为基础的比较。

StrComp 函数
   

返回 Variant (Integer)，为字符串比较的结果。

语法

StrComp(string1, string2[, compare])

StrComp 函数的语法有下面的命名参数：

部分 说明 
string1 必要参数。任何有效的字符串表达式。 
string2 必要参数。任何有效的字符串表达式。 
Compare 可选参数。指定字符串比较的类型。如果 compare 参数是 Null，将发生错误。如果省略 compare，Option Compare 的设置将决定比较的类型。 


设置

compare 参数设置为：

常数 值 描述 
vbUseCompareOption -1 使用Option Compare语句设置执行一个比较。 
vbBinaryCompare 0 执行一个二进制比较。 
vbTextCompare 1 执行一个按照原文的比较。 
vbDatabaseCompare 2 仅适用于Microsoft Access，执行一个基于数据库信息的比较。 


返回值

StrComp 函数有下列返回值：

如果 StrComp 返回 
string1 小于 string2 -1 
string1 等于 string2 0 
string1 大于 string2 1 
string1 或 string 2为 Null Null 

（转自：http://topic.csdn.net/u/20080114/14/471f3cd8-e535-4071-b055-9ab39130af75.html）