Private Sub changebname()
If cn.State = ConnectionState.Open Then cn.Close()
connect_open()
Dim sql1 As String = "SELECT bit,bankname FROM bname ORDER BY bankname DESC "
Dim da As New SqlDataAdapter(sql1, cn)
Dim dt As New DataTable
da.Fill(dt)
With txt_3
.DataSource = dt
.DisplayMember = dt.Columns.Item("bankname").ColumnName
.ValueMember = dt.Columns.Item("bit").ColumnName
End With
End Sub