Private Sub btnRun_Click()
Dim Field As String
Dim value As String
Field = Me.ddlFields.Text
value = Me.ddlValues.Text


UpdateContactField Field, value

Me.Hide

End Sub
Private Sub ddlFields_Change()
Dim fld As String
fld = Me.ddlFields.Text
'Add your field related values here.

Select Case fld


Case "Initial Intro"
Me.ddlValues.addItem ""
Me.ddlValues.addItem "Words to Add"
Me.ddlValues.addItem "Words to Add"


Case "Intro Date"

Me.ddlValues.addItem "None"
Me.ddlValues.addItem " 9/21/2013 "
Me.ddlValues.addItem " 9/20/2013 "
Me.ddlValues.addItem " 9/21/2013 "
Me.ddlValues.addItem " 9/22/2013 "
Me.ddlValues.addItem " 9/23/2013 "
Me.ddlValues.addItem " 9/24/2013 "
Me.ddlValues.addItem " 9/25/2013 "
Me.ddlValues.addItem " 9/26/2013 "
Me.ddlValues.addItem " 9/27/2013 "
Me.ddlValues.addItem " 9/28/2013 "
Me.ddlValues.addItem " 9/29/2013 "
Me.ddlValues.addItem " 9/30/2013 "
Me.ddlValues.addItem " 10/1/2013 "
Me.ddlValues.addItem " 10/2/2013 "
Me.ddlValues.addItem " 10/3/2013 "
Me.ddlValues.addItem " 10/4/2013 "
Me.ddlValues.addItem " 10/5/2013 "
Me.ddlValues.addItem " 10/6/2013 "
Me.ddlValues.addItem " 10/7/2013 "
Me.ddlValues.addItem " 10/8/2013 "
Me.ddlValues.addItem " 10/9/2013 "
Me.ddlValues.addItem " 10/10/2013 "
Me.ddlValues.addItem " 10/11/2013 "
Me.ddlValues.addItem " 10/12/2013 "
Me.ddlValues.addItem " 10/13/2013 "
Me.ddlValues.addItem " 10/14/2013 "



Case "btnUpdateTasks"

Me.ddlValues.addItem "Update Task Fields"

End Select

End Sub
Private Sub UserForm_Initialize()
'Add your field names here.

Me.ddlFields.addItem "Initial Intro"
Me.ddlFields.addItem "Intro Date"
Me.ddlFields.addItem "btnUpdateTasks"


End Sub