Private Sub w_login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim objconnection3 As OleDbConnection = New OleDbConnection(ConnectStr)
objconnection3.Open()
Dim dataDA As OleDbDataAdapter = New OleDbDataAdapter
dataDA.SelectCommand = New OleDbCommand
Dim dataDS As DataSet = New DataSet
dataDA.SelectCommand.Connection = objconnection3
dataDA.SelectCommand.CommandText = "SELECT ID,NAME FROM lq_user"