'EXECUTE SQL Scalar or NonQuery
'Ex:
'dim count as integer = Execute("select....",True)
'OR
'Execute("update table set field=val where.... ")
Function Execute(strSQL As String, Optional ExecuteScalar As Boolean = False)
  Dim cmd As sqlCommand = conn.CreateCommand
  cmd.CommandText = strSQL
  If ExecuteScalar Then
    Return cmd.ExecuteScalar
  Else
    Return cmd.ExecuteNonQuery
  End If
End Function

'Returns Recordset as Datatable
'Ex:
'dGrid.datasource=FillRecs("select * from table")
Function FillRecs(ByVal sqlString As String) As System.Data.DataTable
  Dim recs As DataTable = New DataTable()
  Dim sql As New sqlDataAdapter(sqlString, conn)
  sql.Fill(recs)
  Return recs
End Function

'Returns Row Count
'Ex:
'if hasrecs(Datatable)
Function hasrecs(ByVal r As Data.DataTable) As Boolean
  Return (r.Rows.Count > 0)
End Function

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\View Source Editor]

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\View Source Editor\Editor Name]
@="F:\\TextPad 4\\TextPad.exe"