Visual Basic

1. Add a dropdown list box to ask the user what vendor they want to work with. There will be a default vendor always selected.
2. Add a dropdown list box to ask the user what access 2013 database file they would like to work with. A default Access 2013 name will be in the dropdown list box.

Public Function isAdministrator(AdminLevelID As Integer) As Boolean
           Dim DBComm As DbCommand
           Dim strsql As String = ""

           strsql = "SELECT IsAdministrator FROM tb_GE_AdminLevel WHERE SysID =" & AdminLevelID
           Return (DBComm.ExecuteScalar(strsql))
       End Function

Public Function GetAllAdminMenu(ByVal AdminLevelID As Integer, Optional ByVal CustomerID As Integer = 0) As DataTable
          Dim dt As New DataTable
          Dim dbcommSave As DbCommand
          Dim strSql As String = ""
          Try
              If (isAdministrator(AdminLevelID)) Then
                  strSql = "SELECT AdminMenuID,AdminMenuName,ParentID,IsNull((Select 1 As Allow from [tb_GE_AdminLevelMenu] Where AdminMenuID = A.AdminMenuID AND SysID = " & AdminLevelID & " ),0) As checked FROM tb_GE_AdminMenu As A ORDER BY SrNo"
              Else
                  strSql = "SELECT AdminMenuID,AdminMenuName,ParentID,IsNull((Select 1 As Allow from [tb_GE_AdminLevelMenu] Where AdminMenuID = A.AdminMenuID AND SysID=1),0) As checked FROM tb_GE_AdminMenu As A ORDER BY SrNo"
              End If
              ''strSql = "SELECT MenuID,MenuName,ParentID FROM tb_GE_Menu ORDER BY SrNo"
              dbcommSave = Db.GetSqlStringCommand(strSql)
              dt.Load(Db.ExecuteReader(dbcommSave))
          Catch ex As Exception
              MsgBox(ex.Message, MsgBoxStyle.Critical, "SQL Exception")
          End Try
          Return dt
      End Function

when some one changes the status: as 'Getting Daily Feed' in addition to saving the status as of now we need to call following URL is '(http://dev.bullseyeprospecting.com/api/dealer/saveevent?dealerGuid=&eventCode=A&userid=5212404' .

How can i do this in wcf .