'Create a Connection Dim oConn As System.Data.OleDb.OleDbConnection oConn = SqlConnect(gcConnString) Dim lcSQL As String lcSQL = "Select deptdesc,deptid from coDept where isactive=1 order by Deptdesc" Dim goView As New Data.DataView() goView = VFPToolkit.vfpData.SqlExecute(oConn, lcSQL, "Departments") Me.ComboBox1.DataSource = goView Me.ComboBox1.DisplayMember = "deptdesc" Me.ComboBox1.ValueMember = "deptid"