怎样用代码判断文本文件内容是1或0

jicheng

<>在打开一个数据库时我想先判断本目录下的a.txt文件内容是不是1 或0 ,以此来打开或不能打开,</P>
<>怎样判断他的内容呢?</P>

Grant

<>我用ado来读取,建立一模块</P>
<>ublic conn As New ADODB.Connection          'ADO<BR>Public rs As New ADODB.Recordset</P>
<P>Public Function ReadCSVFile()<BR>Dim I As Integer<BR>Dim intCount, intCount1 As Long</P>
<P>'打开数据链接关键<BR>conn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" &amp; _<BR>          "DBQ=" &amp; strFilePath &amp; ";Extensions=asc,csv,tab,txt;Persist Security Info=False"</P>
<P> With rs<BR>    .CursorType = 2<BR>    .LockType = 3<BR>    .CursorLocation = 3<BR>    .ActiveConnection = conn<BR> End With<BR></P>
<P>'这里写条件</P>
<P>'至于读取文本第几行就自己设定吧</P>

<P>rs.Close<BR>conn.Close<BR>Set rs = Nothing<BR>Set conn = Nothing</P>