'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"