Visual Basic

            <br />
    <br />
Imports System.Data <br />
     <br />
Dim cnStr As String= "Provider=Microsoft.Jet.OLEDB.4.0;" _<br />
            & " Data source=C:\DatabaseName.mdb" _<br />
            & "; Connect Timeout=10"<br />
            Dim cn As New OleDb.OleDbConnection(cnStr)<br />
            Dim strSelect as string = "SELECT * FROM MyTableName"<br />
            Dim cmd As New OleDb.OleDbCommand(strSelect, cn)<br />
            Dim da As New OleDb.OleDbDataAdapter(cmd)<br />
            Dim dt as New DataTable<br />
            Try<br />
                cn.Open()<br />
                da.FillSchema(dt, SchemaType.Source)<br />
                da.Fill(dt)<br />
            Catch ex As Exception<br />
                Messagebox.Show(ex.Message)<br />
            Finally<br />
                cn.Close()<br />
            End Try

<br />
Imports System.Data <br />
<br />
Dim cnStr as string  = "Server='el_tetra';Database='DBName';uid='';pwd='';"<br />
            Dim cn As New SqlClient.SqlConnection(cnStr)<br />
Dim strSelect as string = "SELECT * FROM MyTableName"<br />
            Dim cmd As New SqlClient.SqlCommand(StrSelect, cn)<br />
            Dim da As New SqlClient.SqlDataAdapter(cmd)<br />
Dim dt as New DataTable<br />
            Try<br />
                cn.Open()<br />
                da.FillSchema(dt, SchemaType.Source)<br />
                da.Fill(dt)<br />
            Catch ex As Exception<br />
                MessageBox.Show(ex.Message)<br />
            Finally<br />
                cn.Close()<br />
            End Try<br />

Dim currentUsername As String = Environment.UserName

Private Sub Spam_Now()
	Dim conStr1 As String
	Dim con1 As SqlConnection
	Dim reader As IDataReader
	Dim sql1 As String
	Dim command As SQlCommand

	conStr1 = "provider=SQLOLEDB;data source=" & DellServerIP _
	& ";database=pre_sms;uid=sa;pwd=" & DellServerPass

	con1 = New SqlConnection(conStr1)

	sql1 = "SELECT TOP 20 Mobile_No FROM TT_Member WHERE Reminder = '0' AND Status = '1'"

	command = New SqlCommand(sql1, con1)
	reader = command.ExecuteReader()

	If not reader.Read() Then
		Label1.Caption = "Finished - " & Now
	Else
		Do
			Label1.Caption = "Spamming - " & Now

			OriginatingAddress = reader.GetString("Mobile_No")
			If OriginatingAddress.Substring(0, 3) = "601" Then
				Telco = 2
			ElseIf OriginatingAddress.Substring(0, 3) = "019" Then
				Telco = 9
			End If

			Reminder_Msg = "Free Msg.Subscription Reminder.Fee:Auto renewal datedate, unless cancelled. To cancel, send STOP TT to 32132."

			MT_Msg = Reminder_Msg
			MT_Msg = Replace(MT_Msg, "datedate", Renewal_Date3)

			Call Sent_MT()
			Call Close_Record()

		Loop Until not reader.Read()
	End If

End Sub