Private Sub Form_Load()
  ' Sample VB 6 code to send a GSM text message via MS ADO library
  ' Microsoft ActiveX Data Objects 2.5 Library (msado25.tlb) or newer
  ' must be checked in the VB menu "Project" / "References..."
  ' If necessary, download MDAC from www.microsoft.com
  
  Dim oConnection As ADODB.Connection
  Dim sSQL As String
      
  ' Initialize the database connection object
  Set oConnection = New ADODB.Connection
  oConnection.ConnectionString = "DRIVER=SQL Server;UID=SMS_USER;PWD=SMS_USER;DATABASE=GSMSGW;SERVER=(local)"
  oConnection.Open
  
  ' Execute the insert statement
  sSQL = "INSERT INTO SEND_QUEUE (USER_ID, TO_PHONE, MESSAGE) VALUES " _
    & " ('Demo App', '+358415614682', 'Test Message')"
  oConnection.Execute (sSQL)

  ' Close the database connection
  oConnection.Close
  Set oConnection = Nothing
End Sub