Conn = New SqlConnection()
With Conn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = strConn
.Open()
End With
sb = New StringBuilder()
sb.Append("SELECT * FROM station where Destination like '%" & txtdis.Text.Trim & "%';")
Dim sqlIni As String
sqlIni = sb.ToString()
com = New SqlCommand()
With com
.CommandText = sqlIni
.CommandType = CommandType.Text
.Connection = Conn
dr = .ExecuteReader()
End With
dttpLog = New DataTable
dttpLog.Load(dr)
TextBox1.DataBindings.Add("text", dttpLog, "Price")