Iron Speed

http://www.ironspeed.com/products/Landing.aspx?c=BusinessCom

Asp.net Artical

http://www.eggheadcafe.com/articles/20060324.asp

Function Fix Line

</p>
<p>Function FixLine(varValue As Variant) As Variant<br />&nbsp;&nbsp;&nbsp; ' if varValue is Null, FixLine returns Null.<br />&nbsp;&nbsp;&nbsp; ' Otherwise, it returns the field value passed in<br />&nbsp;&nbsp;&nbsp; ' with a Cr/Lf on the end.<br />&nbsp;&nbsp;&nbsp; FixLine = varValue + vbCrLf<br />End Function</p>
<p>

 

MS Access Connection Method

 Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\stcode.mdb;Persist Security Info=True;Jet OLEDB:Database Password=ilovemyindia"

Dim conn As New OleDb.OleDbConnection(connectionString)

Dim customersTableAdapter As New OleDb.OleDbDataAdapter("Select station, code from tblstCode", conn)

Dim customerTable As New DataTable()

customersTableAdapter.Fill(customerTable)

Me.TblStCodeBindingSource.Filter = "Station Like" & "'*" & Me.TextBox1.Text & "*'"

Me.TblStCodeBindingSource.DataSource = customerTable

DataGridView1.DataSource = Me.TblStCodeBindingSource