Visual Basic

Dim conn = New SqlConnection(My.Settings.Maintenance_ManagementSQLConnectionString)
       Dim EQ As String = Me.Monsanto_Equip_NoTextBox.Text.ToString
       Dim AreaCMD As New SqlCommand()
       Dim wordDoc As Byte()
       AreaCMD.Connection = conn
       AreaCMD.CommandText = "SELECT LOTO FROM [tower]where [monsanto equip no] = '" & EQ & "'"
       conn.Open()
       wordDoc = AreaCMD.ExecuteScalar()
       File.WriteAllBytes("C:\Temp\WordDoc.docx", wordDoc)
       Dim appWord As New Word.Application
       Dim docWord As New Word.Document

       docWord = appWord.Documents.Open("C:\Temp\WordDoc.docx", , True, , , , , , , , , , True, , , )
       appWord.Visible = True

<System.Runtime.CompilerServices.Extension()> _
	Public Function GetColumnAsString(ByVal rdr As System.Data.IDataReader, ByVal columnName As String, Optional ByVal valueIfNull As String = "") As String
		Dim obj As Object

		If rdr Is Nothing Then
			Return valueIfNull
		Else
			obj = rdr(columnName)
			If obj IsNot Nothing AndAlso obj.Equals(DBNull.Value) = False Then
				Return obj.ToString()
			Else
				Return valueIfNull
			End If
		End If
	End Function

Response.Write(DR.GetColumnAsString("TerminatedDate", "%nbsp;"))

Response.Write(DR.GetColumnAsString("TerminatedDate", DR.GetColumnAsString("SomeOtherDate", "%nbsp;"))

Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Const ERR_NO_WINDOW_HANDLE As Long = 1000
Const ERR_WINDOW_LOCK_FAIL As Long = 1001
Const ERR_VERSION_NOT_SUPPORTED As Long = 1002

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As Long) As Long

Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long

Declare Function UpdateWindow Lib "user32" (ByVal hwnd As Long) As Long


Sub sOpenPowerpoint()
  Dim pPT As PowerPoint.Application
  Dim pPTopen As PowerPoint.Presentation
  Dim PptName As String
  PptName = "C:\A\Nice.pptx"
  Set pPT = CreateObject("PowerPoint.Application")
  pPT.Visible = True
  Set pPTopen = pPT.Presentations.Open(PptName)
  nHandle = fHandle
  ShowWindow nHandle, SW_HIDE
End Sub

Function fHandle() As Long

  Static hwnd As Long
  Dim VersionNo As String

' Get Version Number

    VersionNo = Left(Application.Version, InStr(1, Application.Version, ".") - 1)

' Get handle to the main application window using ClassName

    Select Case VersionNo
    Case "8"  ' For PPT97:
        hwnd = FindWindow("PP97FrameClass", 0&)
    Case "9"  ' For PPT2K:
        hwnd = FindWindow("PP9FrameClass", 0&)
    Case "10" ' For XP:
        hwnd = FindWindow("PP10FrameClass", 0&)
    Case "11" ' For 2003:
        hwnd = FindWindow("PP11FrameClass", 0&)
    Case "12" ' For 2007:
        hwnd = FindWindow("PP12FrameClass", 0&)
    Case Else
        Err.Raise Number:=vbObjectError + ERR_VERSION_NOT_SUPPORTED, _
        Description:="Supported for PowerPoint 97/2000/2002/2003 only."
        Exit Function
    End Select

    If hwnd = 0 Then
        Err.Raise Number:=vbObjectError + ERR_NO_WINDOW_HANDLE, _
        Description:="Unable to get the PowerPoint Window handle"
        Exit Function
    End If

    If LockWindowUpdate(hwnd) = 0 Then
        Err.Raise Number:=vbObjectError + ERR_WINDOW_LOCK_FAIL, _
        Description:="Unable to set a PowerPoint window lock"
        Exit Function
    End If
  fHandle = hwnd
      
End Function

' --------------------------------------------------------------------------------
' Copyright ©1999-2009, Shyam Pillai, All Rights Reserved.
' --------------------------------------------------------------------------------
' You are free to use this code within your own applications, add-ins,
' documents etc but you are expressly forbidden from selling or 
' otherwise distributing this source code without prior consent.
' This includes both posting free demo projects made from this
' code as well as reproducing the code in text or html format.
' --------------------------------------------------------------------------------

' --------------------------------------------------------------------------------
' Copyright ©1999-2009, Shyam Pillai, All Rights Reserved.
' --------------------------------------------------------------------------------
' You are free to use this code within your own applications, add-ins,
' documents etc but you are expressly forbidden from selling or 
' otherwise distributing this source code without prior consent.
' This includes both posting free demo projects made from this
' code as well as reproducing the code in text or html format.
' --------------------------------------------------------------------------------
Sub OpenPPSForEdit()

On Error GoTo ErrHandle
Dim pShow As Presentation
' Lock the window to prevent refreshing
' See above article example for the code
   ScreenUpdating = False
'Open the show, however use additional flag - WithWindow set to FALSE

   Set pShow = Presentations.Open("C:\sample.pps",  _
                        WithWindow:=msoFalse)
'Open a window now to the presentation for editing
   pShow.NewWindow
' Unlock the window to start refreshing again
   ScreenUpdating = True
   Exit Sub

ErrHandle:
    If Err.Number <> 0 Then
        MsgBox Err.Number & " " & Err.Description, _
               vbCritical + vbOKOnly, "Error"
    End If
End Sub

429 ActiveX component cann't create object