VB Code:
  1. rs.Open strSQL, cnn, adOpenDynamic, adLockOptimistic, adCmdText

  2. StatetoAdd = Me.lstStateList.ListIndex

  3. With rs

  4.     .AddNew

  5.     .Fields("FK_State").Value = StatetoAdd

  6.     .Update

  7.     .Close

  8.     Populate_lstEmpStates

  9. End With