求助!辛苦了!

Shared Function selsql(ByRef sql As String) As Boolean
Dim b As Boolean = False
Dim conn As New OleDbConnection
Dim cmd As New OleDbCommand()
conn.ConnectionString = ConfigurationManager.ConnectionStrings("AccessConn").ConnectionString
Dim reader As OleDbDataReader
Dim previousConnectionState As ConnectionState = conn.State
cmd.Connection = conn
cmd.CommandText = sql
conn.Open()
Try
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
reader = cmd.ExecuteReader()
Using reader
While reader.Read()
If reader.Item(0).ToString() > 0 Then
b = True
End If
End While
End Using
Catch ex As Exception
Finally
If previousConnectionState = ConnectionState.Closed Then
conn.Close()
End If
End Try
Return b
End Function
是不是要这样的

Dim bRet as Boolean = Flase cnn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\河南省论文评审信息管理系统\text.mdb") Dim cmd As OleDbCommand cmd = New OleDbCommand("select 1 from 表 where 条件") cmd.Connection = cnn cnn.Open() if (cmd.ExecuteScalar() <> DBNull.Value then bRet = true END IF dr.Close() cnn.Close() dr = Nothing cmd = Nothing cnn = Nothing

还不会怎么给分呢!研究```研究```