Visual Basic

<br />
Public Class AccessOleDb<br />
'''-----------------------------------------------------------------<br />
''' <summary>Gets the local access database connection string.</summary><br />
''' <history>[me] 7/02/07 Created </history><br />
'''-----------------------------------------------------------------<br />
Public Shared ReadOnly Property ConnectionString() As String<br />
Get<br />
Return ConfigurationManager.ConnectionStrings("ACCESS").ConnectionString<br />
End Get<br />
End Property<br />
'''-----------------------------------------------------------------<br />
''' <summary>Executes a sql query command.</summary><br />
''' <param name="query">Ole command to execute.</param><br />
''' <returns>Returns the number of rows affected.</returns><br />
''' <history>[me] 7/02/07 Created </history><br />
'''-----------------------------------------------------------------<br />
Public Shared Function ExecuteCommand(ByVal query As String) As Integer<br />
Dim oleConn As OleDbConnection = New OleDbConnection(ConnectionString)<br />
'Dim oleConn As New OleDbConnection(ConnectionString)<br />
oleConn.Open()<br />
Dim oleCmd As New OleDbCommand(query, oleConn)<br />
Dim intRows As Integer = oleCmd.ExecuteNonQuery()<br />
oleConn.Close()<br />
oleConn.Dispose()<br />
oleCmd.Dispose()<br />
Return intRows<br />
End Function<br />
'''-----------------------------------------------------------------<br />
''' <summary>Populates a DataSet from the results of the specified query.</summary><br />
''' <param name="query">OleDB query to run against the Access Database.</param><br />
''' <returns>Returns a DataSet with the results of the Access Query..</returns><br />
''' <history>[me] 7/02/07 Created </history><br />
'''-----------------------------------------------------------------<br />
Public Overloads Shared Function PopulateDataSet(ByVal query As String) As DataSet<br />
Dim oleConn As New OleDbConnection(ConnectionString)<br />
oleConn.Open()<br />
Dim oaTemp As New OleDbDataAdapter()<br />
oaTemp.SelectCommand = New OleDbCommand(query, oleConn)<br />
Dim dsTemp As New DataSet()<br />
oaTemp.Fill(dsTemp)<br />
oleConn.Close()<br />
oleConn.Dispose()<br />
oaTemp.Dispose()<br />
Return dsTemp<br />
End Function<br />
End Class 

 Private Sub sAbleDischargeReason()
    Dim bStatus As Boolean
    If IsDBNull(datDischargeDate.Value) And datDischargeDate.Text = String.Empty Then
        bStatus = False
    Else
        bStatus = True
    End If
    lblDischargeReasonNum.Enabled = bStatus
    cboDischargeReasonNum.Enabled = bStatus
End Sub