Crear un control Select con elementos de una BD externa

En el ScriptBeforeRender colocar el siguiente código.

'Creación del objeto que realiza la conexión a la base de datos
Set objConn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.recordset")

'Abre la conexion
objConn.ConnectionString = "Provider=SQLOLEDB.1;Data Source=MyServer;Initial Catalog=MyDB;User ID=MyUser;Password=MyPass;Persist Security Info=True"
objConn.open

' Ejecuta la consulta
rs.Open "select * from myTable", objConn

' Recorre los resultados
While Not rs.EOF
    Set ctrlOpt = this.ItemsAdd()
    ctrlOpt.Value = CStr(rs.Fields("ID"))
    ctrlOpt.Text = CStr(rs.Fields("DESCRIPTION"))

    ' Enlazar DESCRIPTION con myField
    If rs.Fields("DESCRIPTION") = doc("myField").value Then
        ctrlOpt.Selected = True
    Else
        ctrlOpt.Selected = False
    End If
    rs.MoveNext
Loop

' Cierra todo
rs.Close
objConn.Close
Set rs = Nothing
Set objConn = Nothing

Y luego en control BeforeSave enlazamos asi:

Value2Field Request.Form("mySelect"), Doc("myField")