主题：[求助] 登陆框公式问题

Dim cmd As New SQLCommand

Dim dt As DataTable

Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")

cmd.ConnectionName  = "User"

cmd.CommandText = "SELECT DISTINCT Name From {Users}"

dt = cmd.ExecuteReader()

For Each dr As DataRow In dt.Datarows

    cmb.Items.Add(dr("Name"))

Next

cmb.SelectedIndex = 0